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Description: CP-6 INTERNALS COURSE (COO LEVEL) 
Dote: AUGUST 12-23, 1985 



This course detoils the features of the DPS-8 and Datanet-8 hardware 
architectures and describes how the CP-6 Host Operating System and 
the LCP-6 FEP Operating system makes use of these features. The 
course covers basic system architecture as well as descriptions of 
major functional areas of the operating systems, including file 
management, comgroups, connection of terminals, and monitor 
services. The process of booting, system recovery, and dump analysis 
will also be covered. 

Lab work will include writing a command processor, shared library, 
and some comgroup related programs, as well as some work with 
system administration utilities. 

Requirements: 

Experienced PL-6/Monitor services programmers, familiarity with system 
administration utilities, such as, SUPER, ANLZ, and PIG. This course 



CLASS SCHEDULE 

MORNING 

MON Administrative Info, Overview, 
DPS-8 Hardware Arch 

TUE Cont. CP-6 use of Hard. Mem. Arch. 

WED CP-6 User Modes, Intro to CP-6 OS 

THUR Booting the System, Recovery 

FRI Comgroup Architecture 

MON MM, FM, RES & Prog Man Functions 

TUE Walking Tours of CP-6 Functions 

WED FEP Arch & LCP-6 Architecture 

THUR FEP Users and System Components 

FRI 



AFTERNOON 

CP-6 Use of Hard. Mem. Arch. 
Anatomy of a User 

LAB 1 (SUPER) & LAB 2 (Shared Lib) 

LAB 3 Use of ANLZ, STATS, CONTROL 

LAB 4 Using COMGROUPS 

LAB 5 Command Processor 

LAB 5 cont 

LAB 6 FPRG programs 

LAB 7 ANLZ (FEP) 

OPEN 



CP-6 IS A SYSTEM 

• COLLECTION OF SOFTWARE INTEGRATED 
AROUND HARDWARE 

• PRIMARY CHARACTERISTICS OF THE HARDWARE 
ARCHITECTURE THAT INFLUENCES THE SOFTWARE 
ARCHITECTURE IS THE MEMORY ADDRESSING 
SYSTEM 

• DPS-8 MEMORY SYSTEM IS CALLED VM&S OR NSA 
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NSA EXTENDS LEVEL 66 BASIC 
ADDRESSING 

• L66 - PROCESS COULD ADDRESS UP TO 256K 
WORDS OF ADDRESS SPACE. THIS SPACE MUST BE 
CONTIGUOUS IN REAL MEMORY. 



1-2A INT 8/85 



NSA EXTENDS LEVEL 66 BASIC 
ADDRESSING (CONT) 

• NSA - TWO MAJOR EXTENSIONS 

• MULTIPLE 256K ADDRESS SPACES AVAILABLE 
TO PROCESS 

• SEPARATION OF "VIRTUAL" ADDRESS CONTINUITY 
FOR REAL ADDRESS VIA PAGE TABLES 

(ALSO MAJOR SECURITY FEATURES BUT NOT DETAILED HERE) 

1-2B INT 8/85 



NSA ADDED HARDWARE REGISTERS: 

• SSR - SAFE STORE REGISTER 

• LSR - LINKAGE SEGMENT REGISTER 

• ASR/PSR - ARG SEGMENT REGISTER/PARAMETER 
SEGMENT 

• ISR - INSTRUCTION SEGMENT REGISTER 

• DRO-7 PAIRED W/ARO-7 - DESCRIPTOR 
REGISTERS/ADDRESS REGISTERS 
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NSA ADDED HARDWARE REGISTERS: 
(CONT) 

• PTDBR - PAGE TABLE DIRECTORY BASE REGISTER 

• WSRO-7 - WORKING SPACE REGISTERS 
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NSA USES NEW ENTITIES 

• SSS - SAFE STORE STACK (FRAMED BY SSR) 

• LS - LINKAGE SEGMENT (FRAMED BY LSR) 

• AS/PS - ARGUMENT/PARAMETER SEGMENTS 
(FRAMED BY ASR/PSR) 

• IS - INSTRUCTION SEGMENT (FRAMED BY ISR) 

• SEGMENTS - ADDRESS SPACE (FRAMED BY SOME 
DESCRIPTOR) 

1-4A 



NSA USES NEW ENTITIES (CONT.) 

DESCRIPTORS/VECTORS/POINTERS 
EEL™ REFERENCE DESCRIPTORS) 
(DESCRIPTORS FRAME SEGMENTS) 

TO BY WSPTD) G SPACE (PAGE TABLE ' P0INTE ° 
(POINTED TO^BY PTDBR)^ TABLE DIRECTORY 
PAGE - 1024 WORDS OF CONTIGUOUS MEMORY 
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FIRST STEP TO UNDERSTANDING NSA ADDRESSING 
INVOLVES THE CONCEPTS OF SEGMENTATION AND 
WORK SPACES 
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WHAT IS A SEGMENT? 

• CHUNK OF PROGRAM ADDRESS SPACE FROM ONE 
BYTE TO 256K WORDS 

• DEFINED BY A 72 BIT DESCRIPTION WHICH SPECIFIES 

• BOUND (SIZE IN BYTES -1) 

• ACCESS CONTROLS 

• TYPE OF SEGMENT (DATA, DESCRIPTOR, SPECIAL) 
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WHAT IS A SEGMENT? 
(CONT) 

• WHAT WS SEGMENT IS IN 

• BASE (BYTE OFFSET INTO WS THAT IS VIRT 0 
FOR THIS SEGMENT) 
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WHAT IS A WORKING SPACE? 

CHUNK OF VIRTUAL ADDRESS SPACE 1->N PAGES 

DEFINED BY A PAGE TABLE (ONE WORD/PAGE) 
EACH PAGE TABLE ENTRY GIVES ADDRESS OF 
PAGE IN REAL MEMORY 

• SPECIFIES ACCESS CONTROL 

• PAGE TABLE FOUND BY AN ENTRY IN WSPTD 
(INDEXED BY WS#) 
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WHAT IS A WORKING SPACE 
(CONT) 

• SPECIFIES ADDRESS OF PAGE TABLE AND SIZE 
OF PAGE TABLE 

• WSPTD IS POINTED TO BY HARDWARE REGISTER 
PTDBR 
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THE DOMAIN CONCEPT 

• DOMAIN IS THE ALLOWABLE/ADDRESSABLE 
WORLD OF SEGMENTS AND WORKING SPACES AS 
"SEEN" BY AN EXECUTING PROCESS 

• THE SET OF HARDWARE ADDRESSING REGISTERS 

IN CONCEPT WITH THE DESCRIPTOR SEGMENTS AND 
PAGE TABLES SET UP BY A CONTROLLING 
(PRIVILEGED) PROCESS CONSTRAIN THE CURRENTLY 
EXECUTING PROCESS TO ITS DOMAIN 
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THE DOMAIN CONCEPT (CONT) 

• CLIMB INSTRUCTION ALLOWS SWITCHING FROM 
ONE DOMAIN TO ANOTHER, PUSHING/PULLING UP 
TO 64 WORDS OF CONTEXT ON SSS 
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WS CONTROL 

PAGE TABLE 

WSPTP Q 



RPA ACC CNTR 



1 WORD/PAGE 
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SEGMENT CONTROL (PARTIAL) 
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A (NORMAL) DESCRIPTOR DESCRIBES 
A SEGMENT 



BOUND IN 
BYTES (20) 


ACCESS 
CONTROL 
FLAGS 


wsq (q) 


TYPE 
(4) 


MISCELLANEOUS 
FLAGS m 


WSR 
(3) 


BASE AS BYTE OFFSET INTO WS (26) (NORMALLY) 



• BOUND SPECIFIES SIZE OF SEGMENT (1 BYTE UP 
TO 256K WORDS) 

• BASE LOCATES SEGMENT WITHIN SOME WORKING 
SPACE 



• WSQ/WSR SPECIFIES WORKING SPACE NUMBER 
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A (NORMAL) DESCRIPTOR DESCRIBES 
A SEGMENT (cont.) 



BOUND IN 
BYTES (20) 


ACCESS 
CONTROL 
FLAGS 


WSQ (p) 


TYPE 
(4) 


MISCELLANEOUS 
FLAGS (0) 


WSR 
(3) 


BASE AS BYTE OFFSET INTO WS (26) (NORMALLY) 



• TYPE SPECIFIES: 

• WHETHER SEGMENT CONTAINS DATA OR 
DESCRIPTORS 

• WHETHER WS SPECIFIED DIRECTLY (WSQ) OR 
INDIRECTLY (WSR) 

• INDICATES IF THIS IS NOT NORMAL 
DESCRIPTOR (IF NOT NORMAL THE REST ALL 
LOOKS DIFFERENT) 
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A (NORMAL) DESCRIPTOR DESCRIBES 
A SEGMENT (cont.) 



BOUND IN 
BYTES (20) 


ACCESS 
CONTROL 
FLAGS 


WSQ (0) 


TYPE 
(4) 


MISCELLANEOUS 
FLAGS (0) 


WSR 
(3) 


BASE AS BYTE OFFSET INTO WS (26) (NORMALLY) 



- ENTRY DESCRIPTOR 

- SUPER DESCRIPTOR 

• ARE CONTAINED IN DESCRIPTOR SEGMENTS 
(FRAMED BY A DESCRIPTOR TYPE DESCRIPTOR) 
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A VECTOR REFERENCES A SEGMENT 
OR PARTIAL SEGMENT VIA SOME 
DESCRIPTOR 



BOUND (20) 


ACCESS CONTROL 
FLAGS (9) 


CONTROL 
INFO 


BASE (20) 


ill 


1 s 

i < 2 > 


DESCRIPTOR # 
(10) 



• VECTOR IS COMBINED WITH SPECIFIED 
DESCRIPTOR FOR FORMING NEW DESCRIPTOR TO 
BE LOADED INTO DR (LDD INSTR) OR PUSHED ON 
PS VIA CLIMB 

• VECTOR BASE & BOUND CAN SPECIFY SUBSET 
ALL OF THE SEGMENT 
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A VECTOR REFERENCES A SEGMENT 
OR PARTIAL SEGMENT VIA SOME 
DESCRIPTOR (cont.) 



BOUND (20) 


ACCESS CONTROL 
FLAGS (9) 


CONTROL 
INFO 


BASE (20) 




S 

(2) 


DESCRIPTOR # 
(10) 



• ACCESS FLAGS LOGICALLY ANDED WITH 
DESCRIPTOR FLAGS THEREFORE CAN SUBSET 
PRIVILEGES, BUT NOT ADD ANY 

• S SPECIFIES LS,rS, PS AS DESCRIPTOR SOURCE 

• DESCRIPTOR # SPECIFIES WHICH DESCRIPTOR 
IN LS/AS/PS 
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A VECTOR REFERENCES A SEGMENT 
OR PARTIAL SEGMENT VIA SOME 
DESCRIPTOR (cont.) 



BOUND (20) 


ACCESS CONTROL 
FLAGS (9) 


CONTROL 
INFO 


BASE (20) 






S 

(2) 


DESCRIPTOR # 
(10) 



• SPECIAL VALUES OF S, D RESERVED TO SPECIFY 
CERTAIN HARDWARE REGISTERS (DRn, ISR, LSR, 
SSR, PSR, ETC.) 
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A POINTER REFERENCES A SEGMENT 



VIA SOME DESCRIPTOR AND CAN SPECIFY AN 
OFFSET INTO THE SEGMENT TO THE BIT LEVEL 



WORD 


BYTE 


BIT 


S 


DESCRIPTOR # 


OFFSET 
18 


(2) 


(4) 


(2) 


(10) 



• S, D FIELDS (SEGID) REFERENCE A DESCRIPTOR 
(SAME AS VECTOR) 

• WHEN LOAD POINTER INSTRUCTION EXECUTED 

©WORD, BYTE, BIT OFFSETS LOADED INTO AR 

• S, D LOADED INTO SEGID REGISTER (INFO ONLY) 

• SPECIFIED DESCRIPTOR LOADED INTO DR 

• OFFSET VALUES DO NOT PROSCRIBE ACCESS 
BELOW SPECIFIED ADDRESS ^ 3 , NT 8/85 



SOME SPECIAL REGISTERS WHICH WILL 
BE COMMONLY REFERENCED 

LSR - CONTAINS DESCRIPTOR WHICH FRAMES 
CURRENT LS 

- LOADED ONLY AS A RESULT OF CLIMB 
INSTRUCTION 
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SOME SPECIAL REGISTERS WHICH WILL 
BE COMMONLY REFERENCED (CONT) 

ISR - CONTAINS DESCRIPTOR WHICH FRAMES 
CURRENT INSTRUCTION SEGMENT 

- IC IS OFFSET INTO CURRENT IS 

- LOADED VIA CLIMB OR TSX INSTRUCTION 



SSR - CONTAINS DESCRIPTOR WHICH FRAMES CURRENT 
SAFE STORE STACK 
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SOME SPECIAL REGISTERS WHICH WILL 
BE COMMONLY REFERENCED (CONT) 

-SS IS STACK FOR CONTEXTS PUSHED/PULLED 
-VIA CLIMB INSTRUCTION 

ASR/PSR- CONTAIN DESCRIPTORS WHICH FRAME 

-CURRENT ARGUMENT/PARAMETER SEGMENTS 

-AS/PS IS STACK USED TO PASS DESCRIPTORS 
-FROM ONE DOMAIN TO ANOTHER VIA CLIMB 
-INSTRUCTION 
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SEGMENT SPECIFICATION IN 
INSTRUCTIONS 

■ ] address |ldp2|i |x|o|tag| 

3 15 at \ ARn Dl 



2 " 


LDAj 


o]l|tag| 


POINTER 


24 


2 


10 


18 \2 


I 4 








11 


0 1 



.6001 = "LS1' 



18 2 4 


72 








DESCRIPTOR 
"LS1"(.6001) 
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CONCEPT OF AN EXECUTING PROCESS 

• CURRENT PROCESS CONTAINED BY DOMAIN 
AS ESTABLISHED 

• MACHINE HAS SLAVE MODE/PRIVILEGED MODE 

• ONLY PRIVILEGED MODE CAN "SET UP" DOMAINS 
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CONCEPT OF AN EXECUTING PROCESS 
(CONT) 

• SLAVE MODE SWITCHED TO PRIVILEGED AS 
RESULT OF 

• TRAPS (INCLUDING PMME) 

• INTERRUPTS (TIMERS, I/O) 

• HARDWARE TOGETHER WITH "CORRECT" PRIVILEGED 
PROCESS AND "CORRECT" SYSTEM ARCHITECTURE ARE 
WHAT PROVIDES SYSTEM SECURITY 
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THE USE OF DPS-8 
MEMORY ARCHITECTURE (NSA) 
BY CP-6 
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CP-6 WORKING SPACE USAGE 

WS#0 ADDRESSES REAL MEMORY 

WS#1 MONITOR PROCEDURE AND DATA 

WS#2 SCRATCH USE BY XDELTA 

WS#3 USED BY DELTA/ANLZ 

WS#4 COMMAND PROCESSORS PROCEDURE 
(IBEX AND OTHERS) 
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CP-6 WORKING SPACE USAGE 
(CONT) 

WS#5 DEBUGGERS PROCEDURE (DELTA AND OTHER) 

WS#6 ALTERNATE SHARED LIBRARIES PROCEDURE 
(l-D-S/ll AND OTHERS) 

WS#7 SCRATCH USE BY I/O END ACTION 

WS#8 CURRENT USERS WORKING SPACE 
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CP-6 WORKING SPACE USAGE 
(CONT) 

WS#9 

WS|10 CURRENT USERS VIRTUAL SEGMENTS 
WS>1 1 USED BY FEP I/O AND COMGROUPS 
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USER VIRTUAL SPACE 

• "THE USER" FROM STANDPOINT OF MONITOR 
CONTROL 

• CONTAINS ALL "GLUE" HOLDING IT TOGETHER 

• PAGE TABLE 

• LINKAGE SEGMENTS 
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USER VIRTUAL SPACE (CONT) 

• SAFE STORE STACK 

• ARGUMENT/PARAMETER SEGMENTS 

• COLLECTS AU PHYSICAL MEMORY ALLOCATED 
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USER VIRTUAL SPACE (CONT) 

• LOCATES BUT DOES NOT CONTAIN SHARED 
PROCEDURE 

• SHARED PROCESSOR 

• RUN-TIME LIBRARY 
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SIMPLIFIED VIEW OF USER'S WS (1 MW) 



PAGE TABLE OF WS 
HJIT-4LS's SSS, AS/PS 
JIT AND MONITOR TSTACK 
FILE BUFFERS 
DCBs 

INSTRUCTION SEGMENT 
USERS 8 DYNAMIC SEGMENTS 
CP'S DYNAMIC SEGMENTS 
DB'S 8 DYNAMIC SEGMENTS 
ASL'S 8 DYNAMIC SEGMENTS 
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1 MW USER VIRTUAL LAYOUT 



PAGE TABLE 



JIT&TSTACK 
RESERVED PACE 



USER R,W,E 



60 (.74) 

61 (.75) 
63 (.77) 

64 (.100) 

319 (.477) 

320 (.500) 

321 (.501) 

322 (.502) 

327 (.507) 

328 (.510) 



2 RESERVED PAGES 
FPOOLS -31 PAGES- 



ROSEG -14 PAGES- 
3 RESERVED PAGES 



INSTRUCTION SEGMENT 
STEP SPECIAL BUFFERS - 2 PAGES 



6 RESERVED PAGES 



88 RESERVED PAGES 



1MW MONITOR VIRTUAL LAYOUT 



10 (.12) 

11 (.13) 

12 (.14) 

13 (.15) 
15 (.17) 

46 (.56) 

47 (.57) 

50 (.62) 

51 (.63) 

60 (.74) 

61 (.75) 
63 (.77) 

64 (.100) 

319 (.477) 

320 (.500) 
327 (.507) 



PACE TABLE FOR 1 ST M W 



0 PACES RESERVED FOR CCQ PAGE TABLE 



32 RESERVED PAGES 



LOW REAL MEMORY - PHYSICAL PACES 0-3 



3 RESERVED PAGES 



INSTRUCTION SEGMENT 



8 RESERVED PAGES 



MM_PPUT- PHYSICAL PAGE USAGE TABLE 16K, MAXIMUM 



MOUSE DATA -8 PAGES- 



PAGE TABLES « HJITS FOR ALL CPUs -8 PAGES- 



COMMUNICATIONS WSQ PACE TABLES -8 PAGES- 



16 RESERVED PAGES 



TIGR BUILT TABLES -128 PAGES- 



MPC FIRMWARE -32 PAGES- 



DS1 - CFUs 50 PAGES 
DS2 - AUTOSAVE TABLES 20 PAGES 
DS3 - ENQ/DEQ TABLES 24 PAGES 
DS4 - UNASSICNED 60 PAGES 
DS5 - UNASSIGNED 60 PAGES 
DS6 - UNASSIGNED 60 PACES 
DS7 - UNASSIGNED 62 PAGES 
DS8 - LDCTs a COMGROUP CONTEXT 48 PACES 



88 RESERVED PAGES 
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HOW HARDWARE DEFINES (CONTAINS) 
USERS DOMAIN 

(USER PROGRAM CURRENTLY IN CONTROL) 
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MORE ABOUT THE INSTRUCTION SEGMENT 



FRAMED BY ISR DESCRIPTOR 0 

(LS#OJ 

DESCRIPTOR ALWAYS SAYS 
SIZE IS 256K 

DESCRIPTOR ALLOWS R, W, E 
ACCESS 

WRITEABILITY CONTROLLED 
BY PAGE TABLE 
SHARED LIBRARY & 
PROCEDURE & PROGRAM NOT 
WRITEABLE 

UNALLOCATED PAGES 224 
MARKED NOT PRESENT 
CONTAINS POINTERS TO 255 
GET TO OTHER SEGMENTS 



PROCEDURE 



DYNAMIC 
DATA PAGES RW 



SHARED LIBRARY 
PROCEDURE 
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THE MONITOR DOMAIN 

USES 1 MW WORKING SPACE 

HAS ONLY ONE LINKAGE SECTION 

MANY OF THE DESCRIPTORS IN THE LS REFER 
TO USER WS THESE DESCRIPTORS HAVE READ 
AND WRITE ACCESS 

• JIT 

• FILE BUFFERS 
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THE MONITOR DOMAIN (CONT) 

• RO SEGMENT (TCB, ECCB, DCBs) 

• HJIT 

• USERS MAP 

• THERE ARE MANY SPECIAL PURPOSE DESCRIPTORS 
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THE MONITOR DOMAIN (CONT) 

THE PSR FRAMES THE PS OF DESCRIPTORS 
PASSED TO THE MONITOR BY THE USER VIA 
THE PMME INSTRUCTION. THESE DESCRIPTORS 
FRAME THE PARAMETERS/BUFFERS OF THE 
SERVICE REQUEST 
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USER VIRTUAL ADDRESS SPACE 
AS SEEN BY USER LS, MONITOR LS 




"USER" HAS FOUR LINKAGE SEGMENTS 

• ONE FOR EACH SLAVE DOMAIN WITH ITS CONTEXT 

• USER LS- DEFINES WS AS SEEN BY USER 

• CP LS - DEFINES WS AS SEEN BY CP 

• DB LS - DEFINES WS AS SEEN BY DB 

• ASL LS - DEFINES WS AS SEEN BY ASL 

• EACH DOMAIN'S IS DESCRIPTOR (LS#0) REFERENCES 
PROCEDURE IN OWN WS ' KtrtKtNttb 
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"USER" HAS FOUR LINKAGE SEGMENTS 
(CONT) 

' nHr D i MAIN ' S DYNAMIC DATA SEGMENT DESCRIPTOR 
REFERENCES APPROPRIATE PAGES IN USERS WS 

• OTHER DESCRIPTORS SAME FOR ALL FOUR DOMAINS 
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THE CP, DB, ASL DOMAINS 

• EACH IS SIMILAR 

• PROCEDURE IN SEPARATE WS 

• 8 DATA SEGMENTS IN USER WS (PRIVATE) 

• SHARES JIT, DCBs WITH USER PROGRAM, 
EACH OTHER 

• EACH IS UNIQUE TO SATISFY DIFFERENT 
REQUIREMENTS 
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THE CP, DB, ASL DOMAINS 
(CONT) 

• CP, DB HAVE RESERVED DCB SLOTS 

• ENTRY, EXIT DIFFERENT FOR EACH, 
PARTLY BY NEED, PARTLY FOR BEST 
PERFORMANCE (ASL) 

SEPARATE DOMAINS MINIMIZE OVERHEAD, 
ALLOW FOR TRULY EXTERNAL DEBUGGER 
AND COMMON PROCESSOR 
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THE COMMAND PROCESSOR DOMAIN 

• JIT DESCRIPTOR HAS READ, WRITE ACCESS 

• CANNOT SEE USER IS OR DATA SEGMENTS 

• CAN SEE DCBs ROSEG 

• GETS CONTROL VIA MONITOR INTERVENTION AT 
PROGRAM ABORT, EXIT, OR ATTENTION REQUEST 

• GIVES CONTROL BACK VIA SPECIAL MONITOR 
SERVICE 
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THE DEBUGGER DOMAIN 

LS CONTAINS DESCRIPTOR GIVING IT ACCESS 
TO THE USERS LS AND HENCE ALL THAT USER 
PROGRAM CAN SEE WITH SAME ACCESS (R, W) 

USERS PROGRAM PAGES ARE MARKED WRITEABLE 
BY THE MONITOR PROVIDING THE PROCEDURE IS 
NOT SHARED (SHARED PROCEDURE AND LIBRARY 
MAY BE UNSHARED BY REQUEST) 

GETS CONTROL OF ALL SPECIAL EVENTS, TRAPS, 
ETC. VIA MONITOR INTERVENTION 
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THE DEBUGGER DOMAIN 
(CONT) 

GIVES CONTROL BACK VIA SPECIAL MONITOR 
SERVICE 
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THE ASL DOMAIN 

• LS HAS NO SPECIAL DESCRIPTORS, NO SPECIAL 
ACCESS 

• PS CONTAINS DESCRIPTORS PASSED BY USER 
PROGRAM WHICH FRAME THOSE PORTIONS OF 
USERS IS AND DATA SEGMENTS TO WHICH 
ASL IS TO HAVE ACCESS 

• GETS CONTROL DIRECTLY FROM USER VIA 
CLIMB INSTRUCTION (USER LS HAS ENTRY 
DESCRIPTOR LOCATING ASL LS) 
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THE ASL DOMAIN (CONT) 

• GIVES CONTROL DIRECTLY BACK TO USER 
VIA CLIMB (OUTWARD) INSTRUCTION 
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• 



GENERAL INFORMATION 

THE MONITOR IS THE ONLY PROCESS WHICH EXECUTES 
IN PRIVILEGED MODE (PLUS XDELTA) 

THE USER PROCESS RUNS IN SLAVE MODE NO MATTER 
WHICH OFTOUR DOMAINS (USER, CP, DB, ASL) IS 

ALL USER DOMAINS USE THE PMME CLIMB 
INSTRUCTION TO MAKE SERVICE REQUESTS 
ON THE MONITOR 
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GENERAL INFORMATION (CONT) 

• THE PMME CLIMB INSTRUCTION: 

• ENTERS PRIVILEGED MODE 

• SWITCHES DOMAINS TO THE MONITOR 
VIA ENTRY DESCRIPTOR IN LOW REAL 
MEMORY (RESERVED LOCATION) 

• CAN PASS DESCRIPTORS FROM THE USER 
DOMAIN TO THE MONITOR 
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GENERAL INFORMATION (CONT) 

TRAPS AND INTERRUPTS CAUSE SIMILAR 
ENTRY TO THE MONITOR BUT PASS NO 
USER DESCRIPTORS 
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SUMMARY 

• MONITOR HAS 1MW VIRTUAL WS CONTROLLED BY PAGE 

• EACH USER HAS 1MW VIRTUAL WS CONTROLLED BY 
PAGE TABLE 

• cp C db U ASL HAS F0UR UNKAGE SEGMENTS " USER ' 

• MONITOR HAS ONE LINKAGE SEGMENT 
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SUMMARY (CONT) 

• MONITOR, CP, DB, AND ASL LS REFER TO USER 
WS FOR CONTEXT SPECIFIC TO THAT USER 

• MONITOR SETS UP PAGE TABLE, LINKAGE SECTIONS, 
HARDWARE TAKES CARE OF ALL ADDRESSING ACCESS 
AND CONTROL 
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SUMMARY 

• SIMPLE CLIMB FOR USER-ASL 

• PMME CLIMB FOR ALL OTHERS 

- STRAIGHTFORWARD FOR USER-MONITOR 
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ANATOMY OF A USER 
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SYSTEM SERVICE INTERFACE 

• UNIFORM ABSTRACT INTERFACE 

• ISOLATES USER PROGRAMS FROM 
HARDWARE/SYSTEM SOFTWARE 

• ENABLES COMPLETE DEVICE 
INDEPENDENCE 

• MAKES FILES INTERCHANGEABLE AMONG 
LANGUAGES 

• CLIMB IS EXCELLENT VEHICLE 
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CP-6 USER ENVIRONMENT 

• L66B SLAVE INSTRUCTION SET 

• MONITOR SERVICES AS EXTENSION OF 
INSTRUCTION SET 

• MEMORY AS DEFINED BY USER DOMAIN 

• JIT, TCB, DCBs 
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CP-6 USER ENVIRONMENT (CONT) 

PLUS OPTIONALLY: 

• SHARED RUN-TIME LIBRARY 

• ALTERNATE SHARED LIBRARY 
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MONITOR CALL FORMAT: 



EPPRO a 
PMME CODE, n 
[TRA p] 



P EXCEPTION 
PROCESSING 



FRAMES VALUE 
PARAM BLOCK 



FRAMES 
MEM PAR 1 



L- AS REQUIRED 



n VECTORS, 
1 FOR VALUE 
PARAM 
BLOCK PLUS 
1 FOR EACH 
'MEMORY 
TYPE' 
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PROGRAM BINDING INTERFACE 

OBJECT LANGUAGE COMMON FOR ALL 
LANGUAGES 

DEBUG SCHEMA INCLUDED PERMITTING 
COMMON DEBUGGER 

ORIENTED TO SHARED PROCEDURE 
ENVIRONMENT 

PERMITS GENERAL LINK TIME BINDING 
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FEATURES OF OBJECT LANGUAGE/ 
LINKER 

• GENERAL RELOCATION OF FIELDS 

• COMPLETE DESCRIPTION OF VARIABLE/ 
PROCEDURES 

• DETECTION OF PROCEDURE DEFINITION/CALL 
MISMATCH 

• SYSTEMIC DEFINITIONS SUPPLIED BY 
LINKER 
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FEATURES OF OBJECT LANGUAGE/ 
LINKER 

• PERMITS GENERAL LINK TIME BINDING 
TO PROMOTE MODULAR PROGRAMMING 

• DESIGNED FOR EASE OF GENERATION 
AND SPEED OF LINKING 

• LINKER PRODUCES RUN UNIT 
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CP-6 OBJECT UNIT 

SECTION IS BASIC UNIT OF ALLOCATION 
(SIZE, ATTRIBUTES) 

ALL CODE AND DATA LOADED INTO SOME 
SECTION 

RELOCATION MAY BE DONE RELATIVE TO ANY 
SECTION OR EXTERNAL REFERENCE 

EXTERNAL ENTRY (ENTDEFs) AND DATA 
(SYMDEFS) ARE DECLARED RELATIVE 
TO SOME SECTION (OR CONSTANT) 
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CP-6 OBJECT UNIT (CONT) 

ENTREFS, SYMREFS, AND SEGREFS ARE 
USED TO ACQUIRE THE VALUES OF ADDRESSES 
(OR CONSTANTS) DEFINED ELSEWHERE AND 
TO ACQUIRE VALUES OF SEGIDS (SUPPLIED 
BY THE LINKER) 

CONTAINS INFORMATION TO ALLOW 
LINKER CONSISTENCY CHECKS 
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CP-6 OBJECT UNIT (CONT) 

INFORMATION ABOUT STATEMENT NUMBERS 
STATEMENT LABELS, VARIABLE NAMES AND 
DATA TYPES IS PROVIDED VIA THE DEBUG 
TABLES 

STANDARD FILE, OF COURSE 



3-7C INT 8/85 



DEBUG SCHEMA: 

• STATEMENT DEFINITION 

• VARIABLE DEFINITION 

• ACCOMODATES ALL LANGUAGES 

• GENERAL ENOUGH TO PRODUCE LO 

• DELTA MAKES IS SWING 



3-8 INT 8/85 



FEATURES OF RUN UNIT 

• SAME FORMAT USED FOR ALL TYPES 
OF PROGRAMS 

• EXECUTABLE FORM CONTAINING STATIC, 
PROCEDURE, DCBS AND TCBS 

• IDENTIFIES REQUIRED LIBRARY AND 
ASL 

• STANDARD FILE, OF COURSE 

3-9 INT 8/85 



CP-6 RUN UNIT: 

• RESULT OF LINKING ONE OR MORE OBJECT 
UNITS 

• ALL CROSS REFERENCES ARE SATISFIED, 
ENTDEFS AND SYMDEFS HAVE VALUES 

• DEBUG INFORMATION COPIED TO RUN UNIT 
WITH ADDRESSES RESOLVED 

• OVERLAY TREE STRUCTURE REFLECTS IN 
DATA AND PROCEDURE 

3-1 OA INT 8/85 



CP-6 RUN UNIT: (CONT) 

• COMMON BLOCKS COALESCED 

• DCBS COALESCED 



3-1 OB INT 8/85 



CP-6 RUN UNIT (WHEN BROUGHT IN FOR 
EXECUTION) 



ROOT 
DATA 
IN 


DATA 
ASSOCIATED 
WITH 
OVERLAYS 


ROOT 
PROCEDURE 
IN 


PROCEDURE 
ASSOCIATED 
WITH 
OVERLAYS 


LONGEST PATH 
< OF DATA ► 


LONGEST PATH 
« OF PROCEDURE ► 



PAGE 
BOUNDARY 



PAGE 
BOUNDARY 
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PROGRAM CALLING INTERFACE 

STANDARD SYSTEM CALLING SEQUENCE 

ACCOMODATES NEED OF ALL LANGUAGES 

FACILITATES MIXED LANGUAGE PROGRAMS 

DESIGNED FOR EFFICIENT FORMAL INTERFACE 
AMONG PROGRAMS IN A RUN UNIT 

PROMOTES COMMON LIBRARY ROUTINES 



3-12 INT 8/85 



CALLING SEQUENCE ATTRIBUTES 

DESIGNED FOR NSA ENVIRONMENT 

ORIENTED TO PURE PROCEDURE ENVIRONMENT 

CONTAINS INFORMATION USEFUL TO DEBUGGER 

INTEGRATED WITH PL/1, PL-6 STACK FRAME 
MANAGEMENT * ™ AML 

ENCOMPASSES LIBRARY FUNCTION CALL 
FORMAT 

3-13 INT 8/85 



PL-6 RELATIONSHIP TO SYSTEM 

• LANGUAGE BUILT TO FIT SYSTEM, NOT 
VICE VERSA 

• OPERATING SYSTEM IS THE RUN-TIME 
"LIBRARY" 

• FACILITIES INCLUDED TO FACILITATE 

• BUILDING THE SYSTEM 

• USING THE SYSTEM 

3-UA INT 8/85 



PL-6 RELATIONSHIP TO SYSTEM 
(GONT) 

• DOES NOT PROVIDE HIDDEN CONTROL 
MECHANISMS 

• SYSTEM IS NOT PREJUDICED TO ANY 
LANGUAGE 

• BUT PROVIDES FACILITIES NECESSARY 
TO IMPLEMENT ALL 

• DESIGNED TO MAKE DATA DEFINITIONS 
VISIBLE AND CONTROLLABLE ,. I4B , NT 8/fi c 



NOT AN APPLICATIONS LANGUAGE 

• NO COMPLEX RUN-TIME 

• NO FLOAT OR DECIMAL DATA TYPES 

• INTENDED FOR USE BY SKILLED 
PROGRAMMERS 

• ATTEMPT TO STRIKE PROPER BALANCE AMONG 
STRUCTURE, PERFORMANCE, CHECKING, ETC. 

• BUT IT IS RIGHT FOR MANY APPLICATIONS 

3-15 INT 8/85 



STRUCTURE, PERFORMANCE, PROGRAMM 
CONTROL, CHECKING 

• ATTEMPT TO GIVE NO BIG "SURPRISES" 

• MODULARITY ENCOURAGED, GLOBAL AND 
INTERNAL 

• PARAMETER PASSING ENCOURAGED, NO 
DYNAMIC DATA TYPE CHECKING 
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STRUCTURE, PERFORMANCE, PROGRAM 
CONTROL, CHECKING (CONT) 

• NO DATA TYPE COERCION, INTERNAL 
OR EXTERNAL 

• EXPLICIT DATA REDEFINITION FREELY 
ALLOWED 
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IT'S A SYSTEM: 

• MONITOR ROUNDS OUT THE MACHINE 

• LANGUAGES PLAY TOGETHER 

• DEBUGGER HANDLES ALL LANGUAGE 



3-17 INT 8/85 



ONLINE/BATCH/GHOST/TP MODE 

DIFFERENT WAY TO GLUE TOGETHER SAME 
THING 



• ALL USERS ARE MUCH MORE ALIKE THAN 
DIFFERENT 

• MAJOR DIFFERENCES: 

• INITIATION OF USER 

• ACQUISITION OF RESOURCES 

4-1A INT 8/85 



ONLINE/BATCH/GHOST/TP MODE 
(CONT) 



• SOURCE OF COMMAND STREAM 

• AUTHORIZATION LIMITS 

• DEFAULT ASSIGNMENT OF DCBs 



4-1 B INT 8/85 



A TIMESHARING USER 




4-2 INT 8/85 



A BATCH USER 




4-3 INT 8/85 



A GHOST USER 




4-4 INT 8/85 



SPECIAL SYSTEM GHOST 



USER 
PROGRAM 



TRANSACTION PROCESSING USER 




4-6 INT 8/85 



OVERALL PICTURE OF 
CP-6 OPERATING SYSTEM 




MONITOR 



ASL 
(l-D-S/ll) 



CP 
(IBEX) 



DEBUGGERS 
(DELTA) 



SHARED 
LIBRARIES 



THE CP-6 MONITOR 



• THE MONITOR IS THE ONE PRIVILEGED 
PROCESS WHICH CONTROLS THE OPERATION 
OF THE SYSTEMS AND PROVIDES SERVICE 
FUNCTIONS TO ALL OTHER PROCESSES 

• MOST OF THE CODE WHICH COMPRISES 

THE MONITOR CAN BE EXECUTED SIMUTANEOUSLY 
BY MULTIPLE CPUs - EACH CPU HAS SOME 
SMALL AMOUNT OF PRIVATE DATA, BUT BY 
AND LARGE MOST DATA IS SHARED 
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THE CP-6 MONITOR (CONT) 

• THE MONITOR RUNS IN TWO DISTINCT 
MODES 

• PERFORMING A SERVICE ON BEHALF OF 
A SPECIFIC USER (BY REQUEST) 

• PERFORMING OVERHEAD FUNCTION NOT 
ON BEHALF OF ANY SPECIFIC USER 
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CP-6 SYSTEM GHOSTS 

SLUG/MBS - START-UP AND LOGON USER 
GHOST/MULTI-BATCH SCHEDULER 

KEYIN - GHOST TO HANDLE OPERATOR 
COMMUNICATION AND LOGGING 

OUTSYM - OUTPUT SYMBIONT CONTROL 
GHOST 

PRESCAN - CHECKS BATCH JCL 



5-3A INT 



CP-6 SYSTEM GHOSTS (CONT) 

• INSYM - INPUT SYMBIONT CONTROL GHOST 

• ELF - ERROR LOG FILE WRITER GHOST 

• PIG - PACK INITIALIZATION GHOST 

• FROG - FRONTEND GHOST 
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CP-6 SYSTEM GHOSTS (CONT) 

• DOG - DISPLAY ONLINE USERS GHOST 

• GOOSE - GHOST TO GOOSE GHOSTS AND LAY 

- KEYINS 

• MAILMAN - DELIVERS MAIL 

• JAYS - JOURNAL ALL YOUR STUFF GHOST 
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CP-6 SYSTEM GHOST (CONT) 

• SCOTTY - PERFORMS FILE MOVES 

• TPA - TRANSACTION PROCESSING 

ADMINISTRATION GHOST (NOT REALLY 
SYSTEM GHOST) 
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SPECIAL SHARED PROCESSORS 

• COMMAND PROCESSOR - IBEX, TPCP 

• DEBUGGERS - DELTA 

• ALTERNATE SHARED LIBRARY - l-D-S/ll, ARES 



5-4 INT 8/85 



SYSTEM PROGRAMS 



• EXAMPLES OF OTHER PROCESSORS PROVIDED 
WITH CP-6 AS PART OF SYSTEM 



CONTROL 


SYSCON 


NETCON 


LABEL 


STATS 


SPIDER 


SUPER 


DEF 


RATES 


DEF 


EFT 


VOLINIT 


IMP 


PIGETTE 


ELAN 


REPLAY 


ANLZ 


TRADER 



BOOTING A SYSTEM 

Release contents on multiple tape reels 

#CP6P01, #CP6P02 [,#CP6P03] 
[DEF-created] 

- contain bootable information and run units 

#CP6T1, #CP6T2 [JCP6T3] 
[EFT-created] 

- contain "tools"... electronic manuals, the 
X account, QUAC tests, : LIBRARY, DEMO, 
SUPPORT, :C0NVERT, :SRB, rxxxPRC 
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BOOTING A SYSTEM 



Other stuff in box: 

• Software Release Bulletin 

[installation instructions] 

• Packing slip 

Other stuff you'll need 

• Other good California stuff 

• Supplemental sedatives 

• Computer 

Advice: read open STARs against this 
release FIRST...especially sev "A"s 

r ' 6-2 INT 



PO tape, volume 1 

• Bootstrap 

• COYOTE 

• AARDVARK 

• FIRMWARE 

• SCHEMA for M:MON 

• XDELTA and XDELTALS 

• MONITOR (M:M0N) and MONITOR HJIT 

• GHOST1 and GHOST1 HJIT 

• PATCHES 

• TAPE LABEL (VOL1) 

• $XINSTALL 



PO tape, volumes 2 and beyond 



Rest of stuff destined for life in :SYS 

• service processors 

• IBEX, DELTA, LOGON, PCL, EDIT, IMP, PLOVER, 
PARTRGE, TPA, TPCP, TRADER, LINK, LEMUR, 
FEPLINK, TEXT, PL6, CALF, ELSIE 

• system maintenance processors 

• EFT, ARCOM, CONTROL, SUPER, NETCON, PIG, 
STATS, ELAN, GOOSE, SYSCON, DEER, 
REPLAY, VOLINIT, TURTLE, SPIDER, 
PIGETTE, ANLZ, DEF, RATES, TOLTS 
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PO tape, volumes 2 and beyond 

• system ghosts 

• SLUG, KEYIN, OUTSYM, INSYM, ELF, PRESCAN, 

PIG, GOOSE, DOG, [JAYS,] [MAILMAN,] FROG 

• needed libraries 

• :SHARED_SYSTEM, :SHARED_SPECIAL 

• host orphans 

• RCVR2, ALTKEY 
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PO tape, volumes 2 and beyond 

• FEP software 

• M:FEP 

• :SHARED_LCP6_SYSTEM <sans 3270> 

• :SHARED_LCP6_RELEASE <with 3270> 

• handlers 

• NODEADMN, COUPLER, ASYNC, BISYNC, 
UNITREC, HDLCX25 

• FEP orphans 

• PIGLET, ANLZ—FPRG, DELTA_FPRG 
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PO tape, volumes 2 and beyond 

• Other stuff 

• :SHARED_FPL, COMMAND_FP 

• TND MLC1 6_HNDLR, MDC, MLCP 

• What? Still more? 

• HELP files 

• :?ERRMSG files 

• Separately priced software 

• COBOL • DIGS 

• COBOLE • FORTRAN 

• SORT/MERGE • FPL 
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PO tape, volumes 2 and beyond 

• BASIC 

• APL 

• 6EDIT 

• ARES/ ARGENT/XARGENT 

• IDS (DBUTIL, DBACS) 

• IDP 

• RPG 

• GMAP6 

• MAIL/SEND/NODEATER 
• Each has libraries, HELP files 
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BOOT SEQUENCE 



Hardware boot button starts 1 record read 
COYOTE uses primitive reads to read rest 
transfer to AARDVARK 
read firmware modules into memory 
load firmware into UR, MT, DP controllers 
rewind tape 

search for "CP-6" record 

read rest of PO (schema, M:M0N, XDELTA) 

build system disk area 

patch using MINI 

exit to XDELTA for monitor patching 
XDELTA uses MINIQ (in AARDVARK) for I/O 

6-9 INT 8/85 



BOOT SEQUENCE 



climb to monitor, into TIGR 

TIGR uses MINIQ to get configuration 

builds tables... 

before MINIQ returns EOF to TIGR read, 
RUMs, PLOVERs, and BOOTIMEs xferred to 
system area 

TIGR gets EOF, kills VOLINIT and self (FRITOLAY) 
calls scheduler 

GH0ST1 , poised for execution, starts by 
building #SYS accounts & reconstructing 
then restores labelled PO files (timewarp) 

convert XDELTA output to :PF?.:SYSTAC 
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BOOT SEQUENCE 

convert RUMs into :RUM 
convert PLOVERs into ::PL0VER 
convert BOOTIME 

"SPIDER" in :SHARED_SPECIAL, DELTA 
:RUM exist? -> 

• delete ::RUM, mod :RUM->::RUM 
OUTPUT INTO :PF?.:SYSTAC 
ALIB to DELTA "READ ::RUM.:SYS" 
when rums done, reinstall DELTA & lib 
install LOGON, IBEX, SHARED?, ASLs 
mod JIT -> LDTRC to SLUG 
SLUG starts rest of ghosts 



BOOT SEQUENCE 

reconstruct JOBSTATS, sysid ranges 

SLUG starts SUPER if files not there 

then KEYIN, PIG, DINGO 

when DINGO done, ELF, OUTSYM, INSYM, 
PRESCAN, FROG, CONTROL, DOG, GOOSE 

SCOTTY, MAILMAN, JAYS, ELAN (TB) 



RECOVERY SEQUENCE 

calls to SCREECH are Individual 
monitor entry points that are defined 
by caller with flags indicating what 
to dump 

M$SCREECH PMME has default flags 
climb using ASL form using ASL slot 
in MON LS into IRM$SCREECH 
setup flags, IRM_SC0DE, etc. 
check for same SUA user, etc. 
message on console if IT_XDELTA there 
goto XDELTA if there, else LTRAD to 
AARDVARK (to save "good" SSF) 
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RECOVERY SEQUENCE 

AARDVARK/RECOVERY takes dump based on 
flags (dump area overflow, bypass) 
into system area 

close files (SUA, SCREECH) 

RETURN to IRM$SCREECH if SUA or SNAP 

save JITs in system area, too 

reboot (fetch new M:M0N, GH0ST1 into memory) 

restore system tables 

call scheduler for GH0ST1 restart 

do accounting from system area JITs 

restart system ghosts 

phew! 
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TOOLS TAPES 

SUPPORT 

documentation (SRBs, manuals) 

DEMO 
QUAC 

CONVERT 
:C00PRC 
: LIBRARY 
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ALTERNATE SCHEMA 



Alternate schema enhances XDELTA debugging of 
DEBUGGERS, ASLs, COMMAND PROCESSORS, and 
SYSTEM GHOSTS 



Functional code groups = ++ 

AS tape = i-xx-n 

iSET M$AS FT#XX 
!DEF 

ASCHEMA ru_fid, \ USER | IDB | ICP | ASL } 



6-16 INT 8/85 



ALTERNATE SCHEMA 



XDELTA's USE command "activates" alternate 
schema use based on domain desired and DEF'd 
onto ASCHEMA tape 

UU#.3 " would use USER domain ASCHEMA 

UU#.3,ICP " would use CP (IBEX?) ASCHEMA 
UU#.22,ASL " would use IDS/ARES ASCHEMA 

Note: ASCHEMA is only selected by domain. 
Debugging OUTSYM with KEYIN's ASCHEMA won't 
work. 



6-17 INT 8/85 



SYSTEM OVERHEAD FUNCTIONS 



7-1 INT 8/85 



MACHINE CONTEXT IN VARIOUS STATES: 



PSR/ASR 



USER 
RUNNING 

USER LS IN 
USER HJIT 
(PER USER) 

USER PS/AS — 
IN USER HJIT 

USER SAFE 

STONE IN 
USER HJIT 



MONITOR 
SERVICE 

MONITOR LS- 
IN MON HJIT 
(PER CPU) 



MONITOR 
RUNNING 



NOT 
USED 



MONITOR SS 
IN MON HJIT 



MASTER/ SLAVE 
SLAVE 



MASTER • 
(PRIV) 



MULTIPROCESSING 

• USERS RUN STRICTLY IN USER CONTEXT - 
ANY CPU 

• MOST MONITOR SERVICES RUN IN USER 
CONTEXT - ANY CPU 

• FAULT HANDLER RUNS IN USER/CPU 
CONTEXT - ANY CPU 
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MULTIPROCESSING (CONT) 

• SCHEDULER/PHYSICAL I/O - ANY 
CPU 

• I/O INTERRUPT - MASTER ONLY 
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THE MONITOR DOMAIN: 

• INSTRUCTION SEGMENT DESCRIPTOR 
LOCATES MONITOR PROCEDURE AND 
STATIC DATA IN THE MONITOR WS 

• DATA SEGMENT DESCRIPTORS LOCATE 
MONITOR DYNAMIC DATA 

• JIT, FILE BUFFERS, READ ONLY SEGMENT, 
HJIT LOCATES THESE AREAS IN ALL USERS, 
BUT WITH READ/WRITE ACCESS 
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THE MONITOR DOMAIN: 
(CONT) 

OTHER SPECIAL PURPOSE DESCRIPTORS 
ALSO PRESENT 



7-4B INT 



MONITOR EXECUTION MODES: 

• MONITOR SERVICE (EXECUTING PMMES) 

• RUNNING ON BEHALF OF USER 

• TIME CHARGED TO USER 

• RUNS IN USER CONTEXT 
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MONITOR EXECUTION MODES: 
(CONT) 

• MONITOR EXECUTION (SCHEDULING, 
SERVICING INTERRUPTS, ETC.) 

• NOT RUNNING FOR ANY USER 

• TIME CHARGED TO SYSTEM 
OVERHEAD 

• RUNS IN CPU CONTEXT 
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TYPES OF MONITOR DATA: 

USER SPECIFIC (JIT, HJIT, PAGE 
TABLE, FILE BUFFERS, USER TSTACK) 

CPU SPECIFIC (MONITOR, JIT, HJIT, 
PAGE TABLE, PAGE TABLE DIRECTORY, 
PART OF INSTRUCTION SEGMENT DATA) 

CPU GLOBAL 

• PART OF INSTRUCTION SEGMENT DATA 
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TYPES OF MONITOR DATA: 
(CONT) 

• REAL (BUILT BY TIGR BASED ON 
CONFIGURATION NEEDS) 

• REAP MEMORY AVAILABILITY 
LIST (PPUT) 

• DEVICE AND CHANNEL CONTROL TABLES 
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TYPES OF MONITOR DATA: 
(CONT) 

• AND QUEUE BLOCKS 

• I/O CACHE CONTROL TABLES 

• RESOURCE TABLES 



7-6C INT 8/85 



TYPES OF MONITOR DATA: 
(CONT) 

• SHARED PROGRAM TABLES 
• DYNAMIC SEGMENTS 

• CFUS 

• ENQ/DEQ TABLES 
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TYPES OF MONITOR DATA: 
(CONT) 

• USER TABLES 

• DYNAMIC REAL PAGES 

• I/O CACHE 
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SCHEDULER: 

• EVENT DRIVEN, PRIORITIZED QUEUE 
SCHEDUUNG 

• ALL TYPES OF JOBS SAME EXCEPT 
FOR PRIORITY 

• CONTROLS TO PREVENT EXCESS 
SCHEDULING 
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SCHEDULER: (CONT) 

MOST (VOLUME) SERVICES RUN ON 
ANY CPU 

PRIORITY INCREMENTS FOR CERTAIN 
EVENTS 



7-7B INT 



MONITOR SERVICES 



7-8 INT 8/85 



FILE MANAGEMENT STRUCTURE 
OVERVIEW 
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PACKS AND PACK SETS 




#SYS #USER1 #USER2 #USER3 



• EACH VOLUME CONTAINS VID (Volume 
IDentification) 



MAD (Master Account Directory) 



PUBLIC ACCOUNT 1 


CONTAINING PACKSET 


PUBLIC ACCOUNT 2 


CONTAINING PACKSET 






PUBLIC ACCOUNT n 


CONTAINING PACKSET 



• MAD CONTAINED ON #SYS 

• INDICATES WHERE ACCOUNT MAY BE 

• MAINTAINED BY MSMADMUCK, USUALLY VIA 
PIG AS RESULT OF PUBL KEYIN 
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PAD (Packset Account Directory) 



MACKSET OWNER, A1 TRIBUTES 
DEFAULTS 



ACCOUNT 1 


FD SRDA 


ACCOUNT 2 


FD SRDA 






ACCOUNT n 


FD SRDA 



- (SET RELATIVE 
DISK ADDRESS) 



• RESIDES ON APPROPRIATE PACKSET 

• ACCOUNTS MAY BE ADDED BY PIG, OR 
DYNAMICALLY IF ATTRIBUTES ALLOW 
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FD (File Directory) 



ACCOUNT OWNER, ATTRIBUTES, DEFAULTS 


FILE 1 


FIT SRDA 


FLAGS 


FILE 2 


FIT SRDA 


FLAGS 








FILE n 


FIT SRDA 


FLAGS 
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FIT (File Information Table) 



ACCESS CONTROLS 



ORG, NRECS, UGRANS, GAVAL 



DATES (OPEN UPDATE INDICATOR) 



UATTR, INSTATTR 
EXTEND LIST 



TDA (Top Disk Address) 

FDA (First Disk Address) 

LDA (Last Disk Address) 

ALL ARE FRDA (File Relative Disk Address) 



GRANULE STAMP HASH 
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CONSECUTIVE, UR, SYMBIONT FILE 
STRUCTURE 



STAMP HASH 


GMOD 


NAVX 


HDR j LVL | ORG 


AVAL 


FCEX 


^J 0 X KEYCNT 


REC 1 








FAK C | CTl| GX |GACTB 



GRANULE NUMBER 
MODULO 512 



• RECORD 

SPANNING FOR 
CONSEC, UR 
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RELATIVE FILE STRUCTURE 



STAMP HASH 


GMOD 


NAVX 


HDR 


LVL | ORG 


AVAIL 


FCEX 


END 
LVL 


X 


KEYCNT 


*l 


* 




GACTB 




REC 1 




A l 


• 




GACTB 




REC 2 












*l 


* 




GACTB 




REC y 














7M 






m 





• NO RECORD 
SPANNING 

• GRANULE 
NUMBER 
CALCULATED 
FROM RECORD 
NUMBER 



KEYED (INDEXED) FILE STRUCTURE 



TDA (LEVEL n) 
HASH |GMOd" 



'-A 



fak|gsiz|gx |gactb 
ctl i gda (frda) " 



4 hashIgmod 



177777, 



hash|gmod 



FILE MANAGEMENT SERVICE 
CATEGORIES 

• DCB CONTROL 

• RECORD MANIPULATION 

• DEVICE CONTROL 

• PRIVILEGED OPERATIONS 
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RESOURCE MANAGEMENT SERVICES 

• RESOURCE TYPES 

• PHYSICAL RESOURCES 

• POOLED RESOURCES 

• PSEUDO RESOURCES 

• RESOURCE MANAGEMENT SERVICES 

• DIFFERENT TREATMENT AND 
LIMITS BY MODE 

7-19 INT 8/65 



MEMORY MANAGEMENT SERVICE 
CATEGORIES 

• ACQUIRE AND RELEASE MEMORY 

• MANIPULATE PAGE TABLE AND 
UNKAGE SEGMENT/ARGUMENT 
SEGMENT 

• PRIVILEGED AND T & D 
SERVICES 
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EXECUTION CONTROL SERVICE 
CATEGORIES 

• PROGRAM FLOW CONTROL SERVICES 

• EXCEPTION CONDITION CONTROL 
SERVICES 

• EXCEPTION CONDITION HANDLING 
SERVICES 
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EXECUTION CONTROL SERVICE 
CATEGORIES (CONT) 

• PRIVILEGED/COMMAND PROGRAM 
SERVICES 
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IREL KEY STRUCTURE 



HEADERS THE SAME 


d| klb 


UBIN HALF 


CHAR(1) 


SINGLE FLOATING 


HEX 


PACKED DECIMAL (5) 


SBIN BYTE 


W//////A 






MISEG (AS IN KEYED) 





7-22 INT 8/85 



10 CACHE 

• SET ASSOCIATIVE (A SLOTS/SET) 

• HASH TO SET, SEARCH 

• MANY CONTROLS AND STATS 

• INTEGRATED WITH AUTOSHARE AND 
CG MEM 
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GRANULE TYPES 

• MAD, PAD, GP, FD, FIT,#,m 
INDEX, DATA, REL, CONSEC, ELSE 

• CONTROLS AND STATS BY GRANULE 
TYPE 

• STATS/ANLZ GIVE INFO 
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CACHE TABLE 



TYPE 


SRDA 


FLINK 


BLINK 


PAGE 


USECNT 


UPCOUNT 


SETX 


USER 




1 


W 


E 


B 


AGE 
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COMMUNICATION GROUPS 




CONNECTIONS TO COMGROUPS 




CG CG CG 

WITH ONLY WITH DCBs WITH ONLY 

DCBs AND STATIONS 

STATIONS (NO SUCH THING) 



COMGROUPS INSIDE CP-6 




OPEN COMGROUP 



STATIONS- 



DCB 



MEMORY 
BUFFER 
SPACE 



FILE 
SYSTEM 
BACKING 
STORE 



HOST MEMORY: 

• MSOPEN 

• MESSAGES 

• TERMINALS 

(ACTIVE COMGROUP ONLY) 



DISK FILE: 

• MSOPEN 

• ACCESS CONTROLS 

• BACKUP 

• OVERFLOW 

• PACKAGING 
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CLOSED COMGROUP 



FILE 
SYSTEM 
BACKING 
STORE 



STATION I/O 



— ► [ MBLK | 



READ: MESSAGE TYPE 
ORIGIN STATION 



WRITE: MESSAGE TYPE 

DESTINATION STATION 
(DIRECT OR ANONYMOUS 
QUEUE) 
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COMGROUP MESSAGE 




• SMALL • ARBITRARY SIZE 

• IDENTIFY BY MEMORY • IDENTIFIED BY DISK 
ADDRESS ADDRESS -CACHED 

• ATTRIBUTES • DATA PART OF MESSAGE 
-TYPE 

- ORIGIN STATION 

- DESTINATION 

(STATION/QUEUE) 

- PRIORITY 

- MESSAGE ID 8-7 INT 8/85 



QUEUE ORGANIZATION 



STATION TREE 



MESSAGE TYPE TREE 





TYPE 


1 
1 


MAX 
ACTIVE 


1 


CUR 
ACTIVE 




READS 


SL 


LIST 
HEAD 



• BINARY TREE BY STATION NAME 

• FAST ACCESS FOR DIRECT WRITES 

• STATION NODE 

• CONTROLS STATION I/O 

• CONTAINS LIST OF MESSAGES TO THIS STATION 

• ANONYMOUS QUEUE 
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QUEUE ORGANIZATION 



STATION TREE 



MESSAGE TYPE TREE 



MAX 
ACTIVE 



CUR 
ACTIVE 
REAPS 



LIST 
HEAD 



BINARY TREE BY MESSAGE TYPE 

• FAST ACCESS FOR READS/QUEUE WRITES 

MESSAGE TYPE NODE 

• MAXIMUM AND CURRENT ACTIVE 

• LIST OF READS 

• LIST OF MESSAGES OF THIS TYPE 
TOTAL SIZE LIMITED BY AU 
AUTOMATIC SPILL TO DISK 



DISK CACHE 



HEADER 



DBLK 



DBLK 



DBLK 



• BINARY TREE BY DISK ADDRESS 

• FAST ACCESS 

• NODE IS UNIT OF DISK I/O: MEMORY PAGE 

• CONTAINS MULTIPLE DATA BLOCKS 

• SIZE LIMITED BY AU 

• GROWS AND SHRINKS (TO DISK) 

• CHARGE COMGROUP OWNER 
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READ AND LATCH 




0 SPECIFY TYPE (AND ORIGIN) 

• LOOK UP IN TREE 

• PICK OUT MESSAGE/LEAVE READ PENDING 

• REMEMBER MESSAGE 'CURRENT LATCHED INPUT' 

• CURRENT # ACTIVE OF TYPE 

• MUST SUCCEED 

• REREAD 

• UNLATCH HOLD/RERUN 
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READ AND LATCH 



STATION READ 
BLOCK 



blk] ^Qjjn 



LATCHED OUTPUTS 

• MESSAGE ID 'SPAWN' TRAIL 

• INVISIBLE 

• REPORTS/NEW TRANSACTIONS 

NEXT READ TRIGGERS UNLATCH 

• DELETE INPUT 

• SEND OUTPUTS 
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I/O FEATURES 



• WILD-CARDED WRITE DESTINATION 

• BROADCAST 

• FIRST-FOUND 

• WILD-CARDED READ 'KEYS' 

• MESSAGE TYPE 

• ORIGIN STATION 

• READ: DIRECT ONLY/QUEUE 

• WRITE DIRECT TO READER BUFFER 



8-11 A INT 8/85 



I/O FEATURES (CONT) 

• LATCH/SECURE: BUFFERS THRU DATA BLOCKS 

• WRITE CONTINUED MESSAGES 

• READER MAY IGNORE SEGMENTING OR PAGE 
THRU SEGMENTS 

• MESSAGE PRIORITY FUNCTION OF TYPE AND 
ORIGIN STATION 

• READ: WAIT/ AVAILABLE/ONE ONLY 

8-11B INT 8/85 



ADMINISTRATIVE USER FUNCTIONS 

CONTROL 

• ACTIVATE/DEACTIVATE STATION 

• AU CONNECT/DISCONNECT 

• FLUSH 

• EXTEND DISK FILE 

• REDIRECT/DELETE MESSAGE 



8-12A INT 8/85 



ADMINISTRATIVE USER FUNCTIONS 
(CONT) 

• SET CONTROL PARAMETERS 

• READ/WRITE ABSENT STATION 

• SECURE 

• MEMORY LIMITS 

• MAXIMUM MESSAGE SIZE 

• INPUT/OUTPUT LEGAL FOR 

TERMINALS 

• SET LIST OF MESSAGE TYPES 

• PRIORITY 

• MAXIMUM ACTIVE 8-12B int 8/85 



ADMINISTRATIVE USER FUNCTIONS 
(CONT) 



SET LIST OF STATIONS 
• PRIORITY 



8-12C INT 8/85 



ADMINISTRATIVE USER FUNCTIONS 
(CONT) 

INFORMATION 

• CONNECT/DISCONNECT MESSAGE 

• FREE SPACE WARNING MESSAGE 

• "LATCH ABORT" MESSAGES 

• RETRIEVE CONTROL PARAMETERS 

8-1 2D INT 8/85 



ADMINISTRATIVE USER FUNCTIONS 
(CONT) 

• STATISTICS 

• QUEUE DEPTH 

• TRANSACTION RATE 

• DISK CACHE 

• CURRENT MESSAGE TYPES 

• QUEUE DEPTH 

• STATISTICS 



8-1 2E INT 8/85 



ADMINISTRATIVE USER FUNCTIONS 
(CONT) 

• CURRENT STATIONS 

• DEPTH OF DIRECTED MESSAGES 

• STATISTICS 

• PRESENT ABSENT 



8-12F INT 8/85 



COMGROUP MONITOR SERVICES 

M$OPEN 

M$CLOSE 

M$READ 

M$WRITE 

M$UNLATCH 



M$ACTIVATE 

M$DEACTIVATE 

M$CGCTL 

M$CGINFO 

M$FWCG 

8-13 INT 8/85 



WALKING TOURS OF SOME CP-6 
FUNCTIONS 



9-1 INT 8/85 



CREATING A TIME SHARING USER 

• LINE CONNECTS, HANDLER INFORMS NODE 
ADMINISTRATOR (FEP) 

• NODE ADMINISTRATOR CONVERSES WITH 
TERMINAL (IF NECESSARY) TO ACQUIRE 
LOGON STRING 

• NODE ADMINISTRATOR SENDS LOGON 
STRING AND END POINT ADDRESS (ON 
ADMIN PATH) TO SLUG IN THE HOST 



9-2A INT 8/85 



CREATING A TIME SHARING USER 
(CONT) 

• SLUG CONSULTS :HLP TO DETERMINE IF 
LOGON STRING IS AUTHORIZED 

• IF INVALID, SLUG RESPONDS ACCORDINGLY 
TO NODE ADMIN, AND HOST HAS NO FURTHER 
ACTION IN THIS LOGON ATTEMPT 

• IF VALID, SLUG DETERMINES THE KIND 
OF CONNECTION DEFINED BY THIS LOGON 
LOGON (IN THIS CASE TIME SHARING) 

9-2B INT 8/85 



CREATING A TIME SHARING USER 
(CONT) 

• SLUG CHECKS TO INSURE MAX ONLINE 
USERS NOT EXCEEDED, AND MAX TOTAL 
USERS NOT EXCEEDED 

• SLUG RESPONDS TO NODE ADMIN WITH 
THE HOST END POINT ADDRESS (LDCT) 

• NODE ADMIN COMPLETES THE PATH 

AND RELINQUISHES CONTROL OF THE END 
POINT 

9-2C INT 8/85 



CREATING A TIME SHARING USER 
(CONT) 



• SLUG STEALS THREE PHYSICAL PAGES 
(CAN FAIL) 

• SLUG BUILDS SKELETON JIT, HJIT, AND 
ROSEG, INSERTS NAME AND ACCOUNT 
INTO JIT AND LDCT INTO M$U& (ROSEG) 

• SLUG EXECUTES CALL M$MAKUSER 
(CAN FAIL) 

9-2D INT 8/85 



CREATING A TIME SHARING USER 
(CONT) 

• M$MAKUSER ACQUIRES ADDITIONAL 
PHYSICAL PAGE FOR PAGE TABLE, 
INITIALIZES IT WITH THE FOUR 
USER CONTEXT PAGES, INITIALIZES 
TSTACK. REPORTS SCHEDULER EVENT 
E__AU (ADD USER) 



9-2E INT 8/85 



CREATING A TIME SHARING USER 
(CONT) 

• SCHEDULER GETS AVAILABLE USER 
TABLE SLOTS (SS__NULL), ASSIGNS 
SYSID, PUTS USER NUMBER AND 
SYSID INTO JIT, INITIALIZES 
USER TABLE SLOT (PAGE TABLE, 
ETC), AND PUTS NEW USER INTO 
EXECUTABLE STATE 



9-2F INT 8/85 



CREATING A TIME SHARING USER 
(CONT) 

• WHEN SCHEDULER PUTS NEW USER 
INTO EXECUTION, IT NOTICES THAT 

NO COMMAND PROGRAM IS ASSOCIATED 
AND INVOKES LOGON 

• LOGON DETERMINES IF USERS 
SUSPENDED, AND CONVERSES ABOUT 
WHAT TO DO 



9-2G INT 8/85 



CREATING A TIME SHARING USER 
(CONT) 

LOGON INITIALIZES JIT (FROM 
:USERS) WITH RESOURCES, LIMITS, 
DEFAULTS, SETUP (TO CCBUF) 

LOGON EXECUTES M$CPEXIT TO 
ASSOCIATE COMMAND PROGRAM 
SPECIFIED IN :USERS 



9-2H INT 8/85 



CREATING A TIME SHARING USER 
(CONT) 

• WHEN (IF) IBEX GETS CONTROL, 
IT EXECUTES COMMAND IN CCBUF 

• PHEW! 



9-21 INT 8/85 



THE TRIP A TRANSACTION TAKES 
THROUGH TP 

• FPL PROGRAM DETERMINES IT 
HAS A COMPLETE TRANSACTION, 
AND SEND IT 

• HOST RECEIVES TRANSACTION 
AND INSERTS IT INTO COMGROUP 



9-3A INT 8/85 



THE TRIP A TRANSACTION TAKES 
THROUGH TP (CONT) 

• IF TRANSACTION TYPE SPECIFIES 
JOURNAL, TRANSACTION DIRECTED 
TO JAYS, ELSE TRANSACTION PUT 
ON ANONYMOUS QUEUE 

• TRANSACTION TYPE SATISFIES THE 
READ OF TPCP ASSOCIATED WITH SOME 
TPU FOR THE TP INSTANCE, OR THE 
READ OF A TPAP ASSOCIATED... 



9-3B INT 8/85 



THE TRIP A TRANSACTION TAKES 
THROUGH TP (CONT) 

• IF TPCP RECEIVES THE TRANSACTION, 
IT DETERMINES THE APPROPRIATE TPAP, 
AND EXECUTES M$CPEXIT TO FETCH IT 

• TPAP PROCESSES THE TRANSACTION, 
POSSIBLY SENDS RESPONSES/REPORTS, 
AND EVENTUALLY EXECUTES M$READ 
(OR M$UNLATCH), REMOVING THE 
TRANSACTION FROM THE COMGROUP 



9-3C INT 8/85 



THE TRIP A TRANSACTION TAKES 
THROUGH TP (CONT) 

• IF THE TRANSACTION TYPE REQUIRES 
JOURNAL, JAYS IS NOTIFIED TO WRITE 
'END TRANSACTION' RECORD TO JOURNAL 



9-3D INT 8/85 



TIME SHARING USER HITS BREAK 

• HANDLER DETECTS BREAK AND DOES 
APPROPRIATE LOCAL ACTION (CANCEL 
INPUT/OUTPUT) 

• HANDLER SENDS BREAK MESSAGE ON 
THE PATH TO HOST 

• HOST (FRONT END INTERFACE) SEES 
BREAK MESSAGE AND REPORTS L_BRK 
TO SCHEDULER 



9-4A INT 8/85 



TIME SHARING USER HITS BREAK 
(CONT) 

• SCHEDULER TAKES ONE OF TWO TYPES 
OF ACTION, DEPENDING ON CURRENT 
STATE OF USER. IF 'BREAKABLE' 
STATE (E.G., SLEEP, ENQUEUE WAIT, 
ETC) STATE IS CHANGED TO EXECUTABLE 
(SS_n), ELSE NO STATE CHANGE OCCURS. 
IN EITHER CASE, BREAK FLAG IS SET 
IN USER TABLE ENTRY 



9-4B INT 8/85 



TIME SHARING USER HITS BREAK 
(CONT) 

• WHEN USER IS NEXT SCHEDULED, IF 
BREAK FLAG IS SET, SCHEDULER ALTRETS 
FROM REG. CALLER OF REG SETS IC TO 
REEXECUTE PMME IF APPROPRIATE 

• ON NEXT EXIT FROM MONITOR TO USER, 
BREAK FLAG IS NOTICED. IF SET, 
APPROPRIATE ACTION IS TAKEN. 



9-4C INT 8/85 



TIME SHARING USER HITS BREAK 
(CONT) 

• IF DEBUGGER HAS REQUESTED BREAK 
CONTROL, CONTROL GOES TO DEBUGGER 

• IF USER HAS REQUESTED BREAK CONTROL, 
CONTROL GOES TO USERS BREAK ROUTINE 

• OTHERWISE CONTROL GOES TO COMMAND 
PROGRAM 



9-4D INT 8/85 



I/O COMPLETE EVEN ON NOWAIT I/O 
FOR USER 

• I/O INTERRUPT OCCURS, HANDLER GET 
CONTROL TO DO CLEANUP, NIO$COMP IS 
CALLED TO SIGNAL OPERATION COMPLETED 

• IF I/O ASSOCIATED WITH A DCB, DCB 
FUNCTION COUNT IS DECREMENTED 



9-5A INT 8/85 



I/O COMPLETE EVENT ON NOWAIT 
I/O FOR USER (CONT) 

• IF EVENT WAS REQUESTED, SCHEDULER 
IS CALLED TO REPORT USER EVENT. 
SCHEDULER SETS USER TABLE FLAG 
INDICATING CACHE CLEAR IS REQUIRED 

• E_IOC IS REPORTED TO SCHEDULER 
(TO MAINTAIN MF) 



9-5B INT 8/85 



I/O COMPLETE EVENT ON NOWAIT 
I/O FOR USER (CONT) 

• ON NEXT EXIT FROM MONITOR TO 
USER, USER EVENT REQUESTS IS NOTED, 
CACHE CLEAR FLAG IS NOTED AND 
HONORED, AND USER EVENT ROUTINE 

IS ENTERED 

• IF NO EVENT WAS REQUESTED, USER 
MUST EXECUTE M$CHECK TO DETERMINE 
I/O COMPLETION (AND GET CACHE CLEARED) 

9-5C INT 8/85 



RUNNING DOWN A USER (STEP) 

• USER PROGRAM DOES M$EXIT 8E ERRORS 
OR ABORTS FOLLOWED BY M$CPEXIT (QUIT) 

• ALL DCBS (DCBNUM>=10 ARE CLOSED 

• CURRENT SHARED PROGRAM, SHARED 
LIBRARY, ASL, DEBUGGER (IF ANY) ARE 
DISASSOCIATED AFTER GETTING EXIT 
CONTROL IF REQUESTED 



9-6A INT 8/85 



RUNNING DOWN A USER (STEP) 
(CONT) 

• ALL MEMORY EXCEPT CONTEXT IS 
RELEASED 

• IF PROPRIETARY ACCOUNTING REQUIRED 
M$ACCT CALLED 

• IF STEP ACCOUNTING REQUIRED, M$ACCT 
CALLED 



9-6B INT 8/85 



RUNNING DOWN A USER (STEP) 
(CONT) 

IF CP_iOGOFF SET IN JIT, USER IS 
LOGGED OFF (NEXT SLIDE) 



9-6C INT 8/85 



RUNNING DOWN A USER (LOGOFF) 

• COMMAND PROGRAM DECIDES TO LOG-OFF 
USER, ISSUES M$CPEXiT TO LOGOr 

• STEP RUNDOWN IS PERFORMED (IF NOT 
ALREADY DONE) 

• itWn IS\ASSOCIATED, DOES f INAL 
ACCOUNTING FUNCTIONS 

• ISSUES M$CPEXIT (OFF) 

9-7A INT 8/85 



RUNNING DOWN A USER (LOGOFF) 
(CONT) 

DISCONNECT RECORD IS SENT TO 
FEP (IF TS) 

MBS IS NOTIFIED (IF BATCH) 

E_OFF EVENT IS REPORTED TO 
SCHEDULER 

SCHEDULER RELEASES 4 CONTEXT 
PAGES 

9-7B INT 8/85 



RUNNING DOWN A USER (LOGOFF) 
(CONT) 

SCHEDULER CHANGES USER STATE TO 
SS_NULL 

USER NOT LONGER EXISTS 

FEP EITHER DROPS UNE OR REISSUES 
SALUATATION 



9-7C INT 8/85 



READ A RECORD FROM A T/S 
TERMINAL 

• ASSUMPTIONS: NO TYPEAHEAD WAITING, 
NON-TRANSPARENT, VANILLA READ 

• USER ISSUES M$READ 

• Kl MODULES OF MONITOR GET ENTERED 
FROM PMME, READ SENT TO FEI 



9-8A INT 8/85 



READ A RECORD FROM A T/S 
TERMINAL (CONT) 

• FEI PUTS READ REQUESTS INTO CIRCULAR 
QUEUE AND REGS USER (STI) - SIZE OF 
READ, DOMAIN, REREAD?. PATH ID (FROM 
LDCT ENTRY FROM M$U5) 

OG 

• READ REQUEST ARRIVES IN DESTINATION 
FEP (MAYBE VIA X.25 TO REMOTE 

• READ REQUEST DELIVERED TO VDH, 
SCHEDULED ON BEHALF OF THIS PATH 
CONTEXT (TERMINAL) 9-8B int s/ss 



READ A RECORD FROM A T/S 
TERMINAL (CONT) 

• IF PROMPT FOR THIS DOMAIN NO NULL, 
TRANSLATE PROMPT (FROM CONTEXT) AND 
WRITE TO TERMINAL 

• ALLOCATE 16 WORD (32 CHAR) INPUT 
BUFFER 

• AS CHARACTERS ENTERED, IMP THEM, ECHO 
THEM, TRANSLATE THEM, AND INSERT INTO 
INPUT BUFFER 

9-8C INT 8/85 



READ A RECORD FROM A T/S 
TERMINAL (CONT) 

• IF INPUT BUFFER FULL, GET ONE TWICE 
AS BIG, MOVE EVERYTHING, CONTINUE 

• UPON ACTIVATION (EOM CHAR/COUNT/ 
TIMEOUT) STOP ECHOING CHARS, ANY 
MORE TYPED GO INTO TYPEAHEAD BUFFERS 

• READ RESPONSE MSG SEND BACK TOWARDS 
HOST END (CONTAINS PTR TO INPUT BUFFER) 

9-8D INT 8/85 



READ A RECORD FROM A T/S 
TERMINAL (CONT) 

• HOST END HANDLER IN FEP PUTS 
READ RESPONSE WITH DATA INTO 
INPUT CIRCULAR QUEUE 

• FEI RECEIVES READ RESPONSE IN ICQ, 
GETS CONTROL VIA I/O OR TIMER 
INTERRUPT AND USING CONTEXT IN 
LDCT ENTRY DELIVERS DATA TO USERS 
BUFFER, SETS ARE DCB 



9-8E INT 8/85 



READ A RECORD FROM A T/S 
TERMINAL (CONT) 

• FEI CALL SCHEDULER TO REPORT TERMINAL 
INPUT COMPLETE 

• SCHEDULER SET USER TO COMPUTE STATE 
(BASE PRIORITY + TIC INCREMENT) 

• Kl GETS CONTROL WHEN USER 
SCHEDULED AND RETURNS TO USER 



9-8F INT 8/85 



OPEN A FILE 

• USER ISSUES M$OPEN, FM MODULES 
ENTERED VIA PMHE 

• MERGE OPEN PARAMETERS INTO DCB 
(MAYBE FMA FROM JIT) 

• CHECK CPUS FOR THIS FILE ALREADY 
OPEN/RECENTLY OPENED. IF FOUND 
SKIP DIRECTORY SEARCH, SRDA OF 
FIT IN CFU 



9-9A INT 8/85 



OPEN A FILE (CONT) 

DIRECTORY SEARCH 

FPOOL AREA USED TO MAP IN CACHE 
DIRECTORY GRANS OR TO READ THEM 
IN FROM DISK IF NECESSARY 

SEARCH MAD FOR ACCOUNT NAME IF 
PACKSET NOT SPECIFIED IN M$OPEN 



9-9B INT 



OPEN A FILE (CONT) 

SEARCH PAD FOR SRDA OF FILE ACCOUNT 
DIRECTORY FOR THIS ACCOUNT NAME 

SEARCH FAD FOR SDRA OF FIT FOR THIS 
FILE NAME 



9-9C INT 



OPEN A FILE (CONT) 

READ FIT INTO FPOOL PAGE 

CHECK USER ACCOUNT NAME AGAINST 
ACCESS CONTROL LIST, IF FAILS TRY 
OTHER TRICKS (ACCESS VEHICLE, 
FMREAD/FMSEC PRIV) 

ALLOCATE CFU ENTRY IF NOT 
ALREADY THERE, FILL IT IN 



9-9D INT 



OPEN A FILE (CONT) 

MOVE INFO FROM FIT INTO DCB, 
MARK DCB OPEN 

MOVE FPARMS TO USER IF REQUESTED 
ON M$OPEN 

RETURN CONTROL TO USER 



9-9E INT 



READ A RECORD FROM A (KEYED) 
FILE 

IS DCB OPEN? NO GO BACK ONE 
CHART, DO OPEN, RETURN HERE 

ASSUME ONE GRANULE FOR FIT, 
ONE GRANULE FOR KEYS, DATA ON 
SEPARATE GRANULES 

ALLOCATE FPOOL FOR INDEX GRANULE 
(TRUNIC OTHER IS NECESSARY) 

9-1 OA INT 8/85 



READ A RECORD FROM A (KEYED) 
FILE (CONT) 

• READ INDEX GRANULE (FRDA 
IN FIT) 

• SEARCH FOR KEY (BIN SEARCH) 

• FROM KEY GET FRDA OF DATA GRANULE(S), 
WORD OFFSET, BYTE COUNT OF RECORD 

• ALLOCATE FPOOL FOR DATA GRANULE 

9-10B INT 8/85 



READ A RECORD FROM A (KEYED) 
FILE (CONT) 



READ IN DATA GRANULE 

MOVE DATA FROM GRANULE TO 
USER BUFFER 

REPEAT ABOVE FOR EACH CONTINUED 
CHUNK OF RECORD 



9- IOC INT 8/85 



READ A RECORD FROM A (KEYED) 
FILE (CONT) 

• SET ARS IN DCB 

• RETURN TO USER 



9-10D INT 8/85 



CONNECT A DCB TO A (CLOSED) 
COMGROUP 

• USING FM ROUTINES OPEN THE 
COMGROUP FILE 

• GET A PAGE FOR CB CONTEXT 
BLOCK 

• GET A PAGE FOR DESCRIPTOR 
SEGMENT BLOCK 



9-11A INT 8/85 



CONNECT A DCB TO A (CLOSED) 
COMGROUP (CONT) 

• READ CG CONTEXT BLOCK FROM GRAN 0 OF 
FILE 

• USING CGCTX ALLOCATE APPROPRIATE 
DESCRIPTORS, GET THE RIGHT PAGES IN 
THE 10K CHUNKS FO CGWS, AND READ IN 
THE GRANULES OF THE SAVED "ACTIVE" 
IMAGE INTO THE APPROPRIATE PAGES. 



9-1 IB INT 8/85 



CONNECT A DCB TO A (CLOSED) 
COMGROUP (CONT) 

• START CLOCK 

• RUN AROUND MAKING SURE THINGS ARE 
O.K. (RECOVERY DIDN'T CLOSE RIGHT?) 

• INSERT NODE INTO "EMPTY" STATION 
FOR THIS DCB STATION 

• FILL IN NODE WITH STATION NAME, 
NOTE IF THIS IS AU IN NODE AND IN 

CGCTX 9-11C INT 8/85 



CONNECT A DCB TO A (CLOSED) 
COMGROUP (CONT) 

• RETURN CONTROL TO USER 



9-1 10 INT 8/85 



CONNECT A TERMINAL TO A 
COMGROUP 

• SLUG RECEIVES LOGON STRING 
AS MESSAGE ON HLPCG FROM FEI 
WHICH LOOKS LIKE A TERMINAL 
STATION ON HLPCG FOR EACH FEP 

• LOGON STRING KEYED INTO :HLP 
FILE FOR TERMINAL INFO: 

DEFAULT PROFILE (IT OR SPECIFIED 
PROFILE SENT TO FEP FOR THIS PATH) 

9-12A INT 8/85 



CONNECT A TERMINAL TO A 
COMGROUP (CONT) 

STATION NAME 
COMGROUP TO CONNECT TO 

• SLUG ISSUES M$TRMCON TO COMGROUP 
CODE IN MONITOR (KQ) 

• KQ MODULES FIND CONTEXT BLOCK FOR 
THIS COMGROUP - IF NOT THERE ALTRET 
(*NOCG) 

9-12B INT 8/85 



CONNECT A TERMINAL TO A 
COMGROUP (CONT) 

• FROM COMGROUP CONTEXT BLOCK 
ALL IS KNOWN ABOUT LOCATING 
COMGROUP 

• STATION MODE INSERTED IN CG IF 
ITS NOT THERE 



9-1 2C INT 8/85 



CONNECT A TERMINAL TO A 
COMGROUP (CONT) 

IF NODE ALREADY THERE (NOT CONNECTED, 
WITH MSGS WAITING) THEN IF CGCTL 
ALLOWS ACTIVATION, START SENDING 
QUEUED MSG'S TO TERMINAL 

• IF AU CONNECTED BUILD »AUEV 
MSG, DELIVER TO AU STATION 



9-1 2D INT 8/85 



DATA NET 8 (L6) ARCHITECTURE 



10-1 INT 8/85 



GENERAL ARCHITECTURE 

• 16 BIT MINI-COMPUTER 

• 7-16 BIT GENERAL REGISTER 

• 7-20 BIT BASE REGISTER 

• COMMERICAL INSTRUCTION PROCESSOR 
(CIP) 



10-2 INT 8/85 



MEMORY MANAGEMENT 

1 MW VIRTUAL ADDRESS SPACE 

16 4KW SEGMENTS 

15 64KW SEGMENTS 

R.W.E PROTECTION 

SEGMENT MUST BE CONTIGUOUS 
REAL 



10-3 INT 



MEMORY ARCHITECTURE 

• SEGMENT DESCRIPTOR 

BASE, SIZE (MOD 256 WORDS) 
VALID BIT 

RING PROTECTION R,W,E 



10-4A INT 8/85 



MEMORY ARCHITECTURE (CONT) 

• ASD 

• TRAP, INTERRUPT 



10-4B INT 8/85 



INTERRUPTS 

• 64 LEVELS (0-63) 
0,1,2 RESERVED 

• CONTEXT SWITCH CONTROLLED BY 
MASK 

• LEV INSTRUCTION 

10-5 INT 8/85 



INTERRUPT SAVE AREA 





DESINATED 


INTERRUPT 


MEMORY 


LEVELS 


LOCATION 




(LAF) 


0 






► 00080 


1 
2 


► 00082 






20 






► 000A8 


30 






► OOOBC 



J-*- 1000 



f~ MMU ~~ 1 

' context i 
ITevelSoI 

U-L S — J 

TSAP 



1001 
1002 
1003 
1004 



DEV 



f~ MMU "1 

'context. 

jLEVEr20; 

- i?— ' 
" TSAP "I 



AB20 
AB21 " 
AB22 _ 
AB23 ~ 
AB24 " 



10-6 INT 8/85 



TRAPS 

• TRAP VECTOR IN REAL MEMORY 

• CONTEXT STORED IN TSA 

TSA'S IN FOUR POOLS 
PARTIAL CONTEXT AUTOMATIC 

• TSA LINKED TO CURRENT INTERRUPT 

• MCL IS A TRAP 

10-7 INT 8/85 



TRAP VECTOR AND INTERRUPT VECTOR 
LINKAGE 

AVAILABLE TSAs (POOL 0) 



HARDWARE DEDICATED 
MEMORY LOCATIONS 
0000 1 




10-8 INT 8/85 



LCP-6 OPERATING SYSTEM FEATURES 

• GENERAL FEATURES 

• USE OF MEMORY MANAGEMENT 

• USE OF INTERRUPTS 

• KINDS OF USERS 

• DEBUGGING 



10-9 INT 8/85 



VIRTUAL MEMORY ALLOCATION 

• 1 MEG VIRTUAL SPACE LIKE WS ON 
HOST 

ONLY ONE WS VISIBLE 

• NO PAGE MAP 
SHUFFLING 
I/O MEMORY 
FRAGMENTATION 



• ADDRESS SPACE DEFINED BY ASDT 
IN HJIT 

10-11 INT 8/85 



16:11 AUG 09 '85 FEP_SEGS 



Active Process > USER/HANDLER 



MMU Image 


SOURCE 




UHJIT.ASDT_USR 


# 


UASDT 


MASDT 



VADDR 




00 


.5000 


.503E 


.00000 




NULLSEG 


01 


. 5002 


.5040 


.01000 


ROS 


02 


. ^5004 


.5042 


.02000 


DBJDS 


03 


.5006 


.5044 


.03000 


LOW_MEM 


04 


.5008 


.5046 


.04000 


TSTACKU 


05 


-500A 








06 


-500C 


1504A 


!06000 


MHJIT 


07 


.500E 


.504C 


.07000 


MHJIT 


08 
09 


.5010 


• 504E 


.08000 


MON_ENTRYJDATA 


.5012 


.5050 


.09000 


MON_ENTRY 


10 


.5014 


.5052 


.OAOOO 


USER_DS1 


11 


.5016 


.5054 


.OBOOO 


USERJDS2 


12 


.5018 


.5056 


.0C000 


CP_DS 


13 


.501A 


.5058 


.ODOOO 


* 


14 


-501C 


.505A 


.OEOOO 


* 


15 


• 501E 


.505C 


.OFOOO 


* 


16 


.5020 


.505E 


.10000 


USER_IS1 


17 


.5022 


.5060 


.20000 


USER_IS2 


18 


.5024 


.5062 


.30000 


USER_IS3 


19 


.5026 


.5064 


.40000 


USER_IS4 


20 


.5028 


.5066 


.50000 


USER_IS5 


21 


.502A 


.5068 


.60000 


USER_IS6 (LIB) 


22 


• 502C 


.506A 


.70000 


USER_IS7 (LIB) 


23 


.502E 


.506C 


.80000 


DB_PROC 


24 


.5030 


• 506E 


.90000 


CP_PROC 


25 


.5032 


.5070 


-AOOOO 


UAUTO_DS 


26 


.5034 


.5072 


.BOOOO 


USER_DS3 


27 


.5036 


.5074 


.COOOO 


USER_DS4 


28 


.5038 


.5076 


-DOOOO 


HAND_Q 


29 


.503A 


.5078 


.EOOOO 




30 


• 503C 


-507A 


.FOOOO 





MON FOR USER 

1IH ITT AcnT Mn 
UnOl 1 * Aoi.il _nLL 


MOW T TDP 

MHJIT.ASDT_MOK 


NULLSEG 


Ml II 1 <\Efr 

I'ULLOlu 


ROS 




RDB_DS 


RDRJDS 


LOW_MEM 


LUW_nLn 


TSTACKU 




UHJIT 


UMHJIT 


MHJIT 


MHJIT 


MHJIT 


MHJIT 


MON_ENTRY_DATA 


MON_ENTRY_DATA 


MON_ENTRY 


MOhLENTRY 


LPAR1 




LPAR2 


* 


LPAR3 




LPAR4 


* 


LPAR5 




LPAR6 


* 


M0NLIS1 


MONLISl 


M0N_IS2 


MOW T^7 


M0N_IS3 


nuiM l ij 


MDM ICil 
nUiN 1 oH 


MON_I S4 


M0N_IS5 


MON_IS5 


BPAR1 




BPAR2 




DB_PR0C 


DB_PR0C 


WINDOW1 


WIND0W1 


BOBCAT 


BOBCAT 


HAND_Q 








BIGFOOT 


BIGFOOT 



10-12 INT 8/85 



SCHEDULING IN LCP-6 

SCHEDULED EXECUTION AT LEVEL 
63 

- FPRGS. HANDLERS BASE LEVEL 
SCHEDULER RUNS AT LEVEL 62 
REAL TIME CLOCK AT LEVEL 61 



10-13A INT 



SCHEDULING IN LCP-6 
(GONT) 

LEVELS 12-60 AVAILABLE FOR 
HANDLERS CONNECTED INDIRECTLY 
VIA M$INTCON 

LEVEL 3 COMMON INHIBIT LEVEL 



10-13B INT 



KINDS OF FEP USERS 

USER FRONT END PROGRAMS 
COMGROUP FRONT END PROGRAMS 
GHOST FRONT END PROGRAMS 
HANDLER FRONT END PROGRAMS 



10-14 INT 



USER FPRG 

• IN PATH BETWEEN HOST USER AND 
DEVICE 

• ABORTED WHEN HOST DCB CLOSED 

• OPEN RES='UCnn\ ORG=FPRG 



10-15A INT 8/85 



USER FPRG (CONT) 

• USES 

- DATA REDUCTION/CONVERSION 

- SCREEN ORIENTED FUNCTIONS 

- E.G. DIGIS 



10-15B INT 8/85 



COMGROUP FPRG 

• IN PATH BETWEEN HOST COMGROUP 
AND TERMINAL STATION 

• STARTED/STOPPED BY CG ADMINISTRATOR 

- M$ACTIVE MAKEFPRG=YES 

- M$DEACTIVATE OR CG AU DISCONNECT 



10-16A INT 8/85 



COMGROUP FPRG (CONT) 

• USES 

- FORMS CONTROL 

- E.G. FPL FOR TP 



10-16B INT 8/85 



GHOST FPRG 

• CONNECTED TO HOST DCB ONLY 

• ABORTED WHEN HOST DCB CLOSED 

• OPEN RES=TEnn\ ORG=FPRG 

• USES 

- E.G. COLTS, PIGETTE, ANLZ 



10-17 INT 8/85 



HANDLER FPR6 

• STARTED THROUGH HOST DCB, THEN 
INDEPENDENT 

• MAY CONNECT TO DEVICES, LINES 

• OPEN RES='FEnn\ ORG=HANDLER 



10- ISA INT 8/85 



HANDLER FPRG (CONT) 

• USES 

- DEVICE HANDLERS E.G. ASYNC 

- NODE ADMINISTRATOR 

- GATEWAYS 



10-18B INT 8/85 



DEBUGGING FEPS AND FPRGS 

• DELTA REPLACES FOX AND FEPANLZ 
DEBUGGING FUNCTION 

• CAN BE USED TO DEBUG 

- USER FPRG (WITH HOST PROGRAM) 

- COMGROUP FPRG (W/O HOST PROGRAM) 



10-19A INT 8/85 



DEBUGGING FEPS AND FPRGS 
(CONT) 

- ENTIRE FEP IN EXECUTIVE MODE VIA 
SA ASYNC 

- FPL PROGRAMS IN CONCERT WITH FPL 
INTERPRETER 



10-19B INT 8/85 



DEBUGGING HOST FPRGS 

• AUTOMATIC IF DEBUGGING HOST 
PROGRAM 

• USE UCnn/USE HOST/USE FEnn 



10-20 INT 8/85 



DELTA USED TO DEBUG HOST PROGRAM 
AND FPRG SIMULTANEOUSLY 



BE 



10-21 INT 8/85 



DEBUGGING COMGROUP FPRGS 

• DELTA STARTED ONLINE W/O HOST 
PROGRAM 

• DEBUG STATION_NAME AT CG/COMGROUP 

• IF FPRG HAS FPL ASSOCIATED 

- FPL COOPERATES WITH DELTA 



10-22A INT 8/85 



DEBUGGING COMGROUP FPRGS 
(CONT) 

- STATEMENT BREAKPOINTS ONLY 

- DISPLAY/LET 

- NO MODIFY/DUMP 



10-22B INT 8/85 



DELTA 



USED TO DEBUG TP FPRG 



HOST FEP 




10-23 INT 8/85 



FEP USERS 
AND 

SYSTEM COMPONENTS 



11-1 INT 8/85 



SYSTEM SERVICE INTERFACE 

• MCL IS USED FOR ENTRY 

• FPT IS SIMILAR TO HOST 

• VECTORS INTERFACED BY SOFTWARE 



11-2 INT 8/85 



LCP6 OU/RU 

• FORMATS/SCHEMA SAME AS ON 
HOST 

• FEPLINK OFFERS SUBSET OF LINK 
FEATURES 

• DELTA PROCESSES HOST/FEP SCHEMA 
WITH SAME CODE 



11-3A INT 8/85 



LCP6 OU/RU (CONT) 

DELTA HAS SEPARATE CODE FOR MEMORY 
REFERENCE, INSTRUCTION INTERPRETATION 



11-3B INT 



CALLING SEQUENCE 

• SAME PRINCIPLE AS ON HOST 

• LIMITED ARGUMENT DESCRIPTORS 

• NO RUNTIME CHECKING 



11-4 INT 8/85 



CALL 

[LAB, B3 ptrs ] 
LAB, B4 descs 
LNJ, B6 sub 

DC altret, PREL (i if none) 



11-5 INT 8/85 



RECEIVING SEQUENCE 

LNJ, B5 X6A_AUT0_N 

DC Frameinfo 

DC numargs 

•» 

LNJ, B4 X6A_^ARET 



11-6 INT 8/85 



AUTO STORAGE BASE 



CUR_T_REG 



BOTTOM FRAMES 



AUTO_TYPE 



AUTO HEAD 



CUR_USED 
MAX ALLOWED 



MUST BE NIL 



AUTO FRAME FORMAT 
B7 LOCATES AUTO FRAME 

-1 FRAME SIZE 

0 

RET ADDR 

1 

2 TYPE 

3 PREV_FR_SIZE 



FRAMES ALLOCATED UP/DOWN 

• MONITOR (FIXED AUTO) USES STACK 

• USER PERVERTS STACK 



11-10 INT 8/85 



LCP6 LIBRARIES 

• FPL 

• VDH 



11-11 INT 8/85 



FPL LIBRARY 

• SUPPORTS INTERPRETIVE PROCEDURE 

• IN-LINE CODE FOR ENTRY, EXIT, 
CALL 

• SUPPORTS DELTA 



11-12 INT 8/85 



VDH 

• PROVIDES FORMATTING, IMPS, ETC. 

• ALSO ACTS AS PROTOCOL ENGINE 

• CONTAINS HANDLER COMMON 

• HASP/3780 + 3270 (OPTIONAL) 



11-13 INT 8/85 



HANDLER COMMON 

• STATS 

• CONTROL/NETCON 

• ERROR LOG 



11-14 INT 8/85 



LINE MANAGEMENT 
WORKS WITH VDH 



BISYNC 

HANDLERS HASP, 2780/3780, 
3270 

WORKS WITH VDH 
FUTURE NJE 



UNIT REC 

• HANDLES LP, CR, CP 

• INTERFACE SAME AS BISYNC 



11-17 INT 8/85 



HDLCX25 

• REMOTE FEPS 

• X.29 

• FUTURE X.28, PROGRAMMING 
X.25 



11-18 INT 8/85 



NODEADMN 

• CONDUCTS LOGON DIALOGUE 

• PROCESSES NETCON ACTIONS 

• COMMUNICATES WITH HANDLERS VIA 
BOBCAT DATA 



11-19 INT 8/85 



COUPLER 

• HAS COUNTERPART IN HOST 

• MANAGES CIRCULAR QUEUES 

• FORWARDS DATA TO CORRECT HANDLER 

• DETECTS HOST REQUESTED OPERATIONS 



11-20 INT 8/85 



ANLZ FPRG, DEUX_FPRG 

• AGENTS FOR HOST COUNTERPARTS 

• DO MEMORY FETCH/STORE 

• ALSO BREAKPOINTS, ETC. 



11-21 INT 8/85 



OTHER FPRGS 

• TND (COLTS) 

• COMMAND_FP 

• PIGLET 

• XCC$MCS_FORM 



11-22 INT 8/85 



17:07 AUG 29 '85 DRIB : STATS . ZZINT 

DRIBBLE ON @ 22:45 08/22/85 
$ STATS 

STATS COO here 
♦FILE STATDATA. :SYS 
♦SPAN 9:00-15:00 

# SUM ONL , BAT , EXE , SERV , MON , IOS , PMME , MEM , ETMF 
#REPL 



Interval < 

09:18:04. £ 
09:48:03. 1 
10:18:03. f 
10:48:03. < 
11:18:03.5 
11:48:04. < 
12:18:04.5 
12:48:04. £ 
13:18:04. e 
13:48:05. £ 
14:18:05.5 
14:48:05.6 



Online Batch % exec % serv % mon I/Os PMMEs Free Pgs ETMF 
" Data follows for THU. AUG 22 '85 *** 

58 3 152.6 124.4 21.0 3631 22769 2903 1 



158.8 
146.8 
159.0 
180.2 
156.8 
177.5 
186.0 
171.2 
146.2 
183.3 
162.1 



128.1 
94.2 
96.6 

112.1 
99.6 
95.5 

103.2 

109.0 
99.2 

118.0 



19.8 
15.2 
18.8 
17.3 
15.0 
14.3 
19.3 
16.7 
15.8 



3038 21185 

2393 29091 

3434 19106 

2190 26267 

3269 22614 

2854 21174 

2299 23432 

2498 25371 

2446 26529 

2730 23095 

2215 25507 



3310 
3138 
3297 
3001 
3842 
2365 
2396 



Online Batch % exec % serv % mon I/Os PMMEs Free Pgs ETMF 



#PLOT MONCO-20) VS IOSCO-4000) 



Y-axis: % mon (linear, 0-20) 
X-axis: I /Os (linear, 0 - 4000) 
12 intervals met the selection criteria. 



23 and above 




#HIST ALL 
#GLOM 



STATS interval from 09:17:33.05 to 14:48:05.62 



"Snap" histogram of interactive response time 



(milliseconds) / I 1 1 1 1 1 1 1 1 1 \ 

0 to 1 I ****** I 7564 ( 16 %) 

2 to 2 I *** v -\ I 3558 ( 8 %) 

3 to 5 |****** > \ I 6770 ( 14 %) 

6 to 10 |******* > \ l 8107 ( 17 %) 

11 to 20 |******* > \ | 8870 ( 19 %) 

21 to 50 |******** > \ I 9532 ( 20 %) 

51 to 100 I ** * — \ I 2870 ( 6 %) 

101 to 200 I * ! I 121 ( 0 %) 

201 to 500 I * ! I 5(0 %) 

501 to 1000 I ! I 0(0%) 

1001 to 2000 I ! I 0(0%) 

2001 and above i ! i 0 ( 0 %) 



47397 



"All" histogram of interactive response time 



(milliseconds) / 1 1 1 1 1- 


|___| | |\ 




0 to 1 i ************* 


1 115033 


32 %) 






6 %) 


3 to 5 | **** \ 


1 38336 


11 %) 


6 to 10 i ***** 


\ 1 45750 


13 %) 


11 to 20 | ****** 


1 \ 1 56290 


16 %) 


21 to 50 |******* 


\ | 60379 


17 %) 


51 to 100 I ** 


v \ 1 17647 


5 %) 


101 to 200 I* 


! 1 553 


0 %) 


201 to 500 1 * 


! 1 19 


0 %) 


501 to 1000 I 


! 1 0 


0 %) 


1001 to 2000 1 * 


! 1 1 


0 «) 


2001 and above 1 * 


! 1 2 
__l | | | |/ 


0 %) 


\ 1 1 1 1 


356651 





"Snap" histogram of user memory sizes 



(pages) 

0 to 5 

6 to 10 
11 to 15 
16 to 20 
21 to 25 
26 to 30 
31 to 35 
36 to 40 
41 to 45 
46 to 50 
51 to 55 
56 to 60 
61 to 65 
66 to 70 
71 to 75 
76 to 80 
81 to 85 
86 to 90 
91 to 95 
96 and above 




"All" histogram of user memory sizes 



C pages; / 1 ! 1 1 I — 

0 to 5 I * 


-I 1 | 1 1\ 

I 409 


0 %) 


6 to 10 | ************* 


I 26618 


31 %) 


11 to 15 | ****** » \ 


I 12804 


15 %) 


16 to 20 I***** 


-\ 1 11343 


13 %) 


21 to 25 | ***** 


v \ 1 9842 


12 %) 


26 to 30 I * 


! 1 845 


1 %) 


31 to 35 1 * 


\ 1 1555 


2 %) 


36 to 40 1 * 


! 1 246 


0 %) 


41 to 45 I * 


! 1 836 


1 %) 






9 %) 


51 to 55 1 * 


\ 1 1579 


2 %) 


56 to 60 1 * 


! 1 289 


0 %) 


61 to 65 1 * 


! 1 1174 


1 %) 


66 to 70 I * 


! 1 395 


0 %) 


71 to 75 1 * 


\ 1 103 


0 %) 


76 to 80 1 * 


\ 1 3067 


4 %) 


81 to 85 1 * 


! 1 119 


0 %) 


86 to 90 1 ** 


v \ 1 3457 


4 %) 


91 to 95 1 * 


! 1 248 


0 %) 


96 and above I * 


\ 1 2605 


3 %) 



"Snap" histogram of time required 
No events occurred in this 

"All" histogram of time required 
No events occurred in this 



to complete user service requests 
interval - histogram skipped. 

to complete user service requests 
interval - histogram skipped. 



" Snap" 



histogram of compute time between interactions 



( milliseconds ) / 1 I 1 - 




— 1\ 




0 to 10 | ******* 






17 %) 


11 to 15 ,***********__ 


\ 


1 12932 


28 %) 


16 to 25 |******** 


> \ 


1 8858 


19 %) 


26 to 45 1 ** 


v \ 


1 2350 


5 %) 


46 to 75 1 ** 


v \ 


1 1892 


4 %) 


76 to 130 I ** 


\ 


1 1875 


4 %) 


131 to 215 1 * 


v \ 


1 1547 


3 %) 


216 to 360 I * 


\ 


1 922 


2 %) 


361 to 600 I * 




1 399 


1 %) 


601 to 1000 1 * 


! 


1 345 


1 %) 


1001 and above i ****** * 




— \ I 7998 


17 %) 


\ 1 1 1- 




46972 





"All" 



histogram of compute time between interactions 



(milliseconds) / 1 1 1 1 1 — 


-I 1 1 1 1\ 








31 %) 


11 to 15 1 *************** 


\ 1 134183 


38 %) 


16 to 25 | ******** 


1 \ 1 73518 


21 %) 


26 to 45 1 * 


! 1 5968 


2 %) 


46 to 75 1 * 


\ 1 4208 


1 %) 


76 to 130 1 * 


! 1 4296 


1 %) 


131 to 215 1 * 


\ 1 3268 


1 %) 


216 to 360 1 * 


! I 2021 


1 %) 


361 to 600 1 * 


! I 989 


0 %) 


601 to 1000 1* 


! 1 762 


0 %) 


1001 and above I * * 


v \l 17161 


5 %) 


\ 1 1 1 1 1__ 


356484 





♦DISPLAY CPU , SCPU , RES , 10 
#GL0M 



STATS interval from 09:17:33.05 to 14:48:05.62 





{all} 




ip} 




{all} 


{ snap } 


% batch execution 






ETMF 


1 


1 




25 4 


^35 


B 


90% response time 


50 


50 


% online execution 


12 1 


29 


.9 


I/O load factor 


11 


42 


% online service 


22.6 


38 


. 8 


# of batch users 


2 


4 


% ghost execution 


23.4 


21. 


.8 


# of online users 


30 


79 


% ghost service 


25.9 


29 


,5 


# of ghost users 


22 


24 


% TP execution 


0.0 


0. 


,0 


# of TP users 


1 


2 


% TP service 


0.0 


0. 


.0 


I/Os per minute 


2023 


2675 


% monitor execution 


14.1 


16. 


.9 


Schedules per minute 


2665 


3270 


% I/O wait 


29.7 


9. 


. 1 


Interactions per min 


242 


143 


% resource wait 


0.0 


0. 


.0 


Events per minute 


4673 


5662 


% I/OSfresource wait 


0.1 


0. 


.2 


PMMEs per minute 


19273 


23824 


% true idle 


47.0 


2. 


.0 


Avg. usee per PMME 


2318 


2648 


Total 


298.9 


299 


,5 


Minutes in interval 


1475 


330 





Master CPU 


Slave 


CPU 2 


Slave 


CPU 3 


Slave CPU 




{all} 


{snap} 


{all} 


{snap} 


{all} 


{snap} 


{all} {snj 


% user execution 


34 


45 


0 


0 


0 


0 


49 


60 


% user service 


30 


39 


0 


0 


0 


0 


21 


33 


% monitor exec. 


10 


12 


0 


0 


0 


0 


2 


2 


% I/O wait 


11 


3 


0 


0 


0 


0 


9 


3 


% resource wait 


0 


0 










0 


0 


% I/O & res wait 


0 


0 


0 


0 


0 


0 


0 


0 


% true idle 


11 


1 


0 


0 


0 


0 


17 


1 


% unaccountable 


0 


0 


100 


100 


100 


100 


0 


0 


Schedules/minute 


1426 


1527 


0 


0 


0 


0 


622 


873 


Events /minute 


3717 


4362 


0 


0 


0 


0 


480 


652 


PMME starts /min. 


9898 


11191 


0 


0 


0 


0 


4724 


6402 


PMME ends /min. 


9897 


11183 


0 


0 


0 


0 


4724 


6405 





Slave 


CPU 5 


Slave 


CPU (. 




{all} 


{ snap } 


{all} 


{snaj 


% user execution 


49 


60 


0 


0 


% user service 


21 


33 


0 


0 


% monitor exec. 


2 


3 


0 


0 


% I/O wait 


9 


3 


0 


0 


% resource wait 


0 


0 


0 


0 


% I/O & res wait 


0 


0 


0 


0 


% true idle 


17 


1 


0 


0 


% unaccountable 


0 


0 


100 


100 


Schedules/minute 


617 


865 


0 


0 


Events /minute 


476 


646 


0 


0 


PMME starts /min. 


4650 


6231 


0 


0 


PMME ends/min. 


4651 


6235 


0 


0 



CP-6 monitor resource utilization 



{Resource name} 



{ # in } { since system boot } { Total } 

{use now} { (max) (min) (average) } {available} 



IOQ packets 

IOS packets 

I/O cache entries 

Enqueue /Dequeue data blocks 

Scheduler Do-list entries 



103 
2918 
649 



100 
104 
4212 



110 
397 
4096 
2560 



I/O cache activity (actions per minute) 





Attempted 


Hits 


Hits 


Percent Attempted 


Failed 


Unusec 


I 




Gets 


uc=o 


UC>0 


Hits 


Puts 


Puts 


Pages 


; 


MAD 


36 


35 


0 


99 


0 


0 


15 


{all} 




77 


77 


0 


99 


0 


0 


15 


{snap} 


PAD 


13 


13 


0 


96 


0 


0 


11 


{all} 




7 


6 


0 


90 


1 


0 


22 


{ snap } 


GP 


73 


65 


7 


99 


0 


0 


26 


{all} 




115 


104 


11 


99 


0 


0 


18 


{snap} 


FD 


500 


485 


4 


97 


11 


0 


175 


{all} 




528 


514 


6 


98 


9 


0 


163 


{snap} 


FIT 


426 


276 


7 


66 


143 


0 


710 


{all} 




671 


493 


13 


75 


166 


0 


233 


{ snap } 


UL 


40 


36 


3 


97 


2 


0 


30 


{all} 




63 


54 


7 


97 


3 


0 


50 


{snap} 


INDEX 


197 


160 


8 


85 


41 


0 


99 


{all} 










81 


67 








DATA 


824 


605 


43 


78 


263 


0 


349 


{all} 




1274 


882 


55 


73 


445 


0 


1698 


{snap} 


REL 


0 


0 


0 


49 


0 


0 


0 


{all} 




0 


0 


0 


0 


0 


0 


0 


{snap} 


CONSEC 


135 


80 


0 


59 


133 


0 


1099 


{all} 




277 


125 


1 


45 


343 


0 


41 


{ snap } 


ELSE 


20 


.0 


0 


1 


23 


0 


0 


{all} 




35 


0 


0 


1 


40 


0 


0 


{ snap } 


Total 


2266 


1757 


73 


80 


617 


0 


2514 


{all} 




3324 


2469 


105 


77 


1074 


0 


2530 


{snap} 



CP-6 memory utilization 



AARDVARK and RECOVERY 45 

XDELTA and monitor debug schema 112 

Monitor procedure and static data 258 

Monitor context (JITs, HJITs, PPUT, page tables) 47 

Monitor dynamic data segments 33 

TIGR-built tables 50 

Communications WSQs 74 

Comgroup queue 71 

Total pages held back for monitor use 15 

Resident system ghosts 388 

Required processors (IBEX, DELTA , LOGON) 228 

All other special shared (resident) processors 613 



Total dedicated memory 1934 

Available to users 6258 

Currently allocated to users 2136 

Automatically shared run units in use 733 

Shared data segments in use 22 

Free pages 284 

Automatically shared run units not in use 401 

I/O cache pages (Use Count = 0) 2529 

Total pages currently available 3229 

I/O cache pages 2672 

- Number of pages not accounted for 10 

Total physical pages in system 8192 



Device 


# of 


connects 


% 




% 


% 




% 


load 


name 


connects 


per min. 


idle 


wait 


bU£ 


Y 


backlog 


factor 


SC010000 


3773 


11 


100 


0 


0.0 


0 


0 


0.0 


0.0 




12537 


8 






0.0 


0 


0 


0.0 


0.0 


DC010000 


145124 


439 


100 


0 


0.0 


0 


0 


0.0 


0.0 




359950 


243 






0.0 


0 


0 


0.0 


0.0 


DC020000 


284827 


861 


100 


0 


0.0 


0 


0 


0.0 


0.0 




715820 


484 






0.0 


0 


0 


0.0 


0.0 


DPO 10000 


98149 


296 


85 


8 


0.1 


11 


7 


2.4 


17.5 




283045 


191 






0.0 


7 


2 


1.4 


16.6 


DP020000 


146134 


442 


78 


8 


0.1 


16 


4 


4.7 


22.5 




342938 


232 






0.0 


8 


6 


2.2 


20.7 


DP030000 


163738 


495 


77 


3 


0.1 


16 


7 


5.9 


26.5 




391650 


265 






0. 1 


9 


8 


2.1 


17.7 


DP040000 


12 


0 


100 


0 


0.0 


0 


0 


0.0 


1.7 




3273 


2 






0.0 


0 


1 


0.1 


58.0 


DP050000 


10615 


32 


97 


9 


0.0 


1 


5 


0.7 


32.1 




24654 


16 






0.0 


0 


7 


0.2 


21.6 


DP060000 


11227 


33 


97 


8 


0.0 


1 


5 


0.6 


29.7 




25289 


17 






0.0 


0 


8 


0.2 


19.1 


DP080000 


49 


0 


100 


0 


0.0 


0 


0 


0.0 


1.1 




398 


0 






0.0 


0 


° 


0.0 


1.0 


DP090000 


15 


0 


100 


0 


0.0 


0 


0 


0.0 


0.5 




1446 


0 






0.0 


0 


° 


0.0 


0.9 


DPI 10000 


12 


0 


100 


0 


0.0 


0 


0 


0.0 


0.0 




2692 


1 






0.0 


0 


1 


0.0 


0.7 


DC030000 


210720 


637 


100 


0 


0.0 


0 


0 


0.0 


0.0 




875570 


593 


100 


0 


0.0 


0 


0 


0.0 


0.0 


DC040000 


210754 


637 


100 


0 


0.0 


0 


0 


0.0 


0.0 








100 


0 












DP2 10000 


12000 


36 


98 


6 


0.0 


1 


3 


0.0 


2.7 




31481 


21 


99 


2 


0.0 


0 


8 


0.0 


3.6 


DP230000 


2503 


7 


99 


7 


0.0 


0 


3 


0.0 


7.0 




6620 


4 


99 


8 


0.0 


0 


2 


0.0 


4.0 


DP250000 


35786 


108 


94 


6 


0.0 


5 


2 


0.1 


2.8 



{all} 

{snap} 
{all} 



{snap} 
{all} 



DP270000 
DP290000 
DP3 10000 
DP330000 
DP350000 
DP370000 
DP390000 
DP410000 
DP430000 
DP450000 
DP470000 
DP490000 
DP5 10000 
TC010000 
MT030000 
MT040000 
MT050000 
UCO 10000 



160651 
4945 



6.6 
5.6 



100.0 
99.7 

97.0 



99.8 
98.6 



0.8 

4.3 
4.1 



{ S ! . 

{all} 



{snap} 
{all} 



0.0 {snap} 



LP010000 
LP020000 
UC030000 
LPIOOOOO 



7504 5 

1002 3 

3666 2 

333 1 

3838 2 

323 0 

323 0 

323 0 

323 0 



100.0 0.0 

86.8 0.2 

89.5 0.2 

95.7 0.0 

89.3 0.3 

100.0 0.0 

100.0 0.0 

95.7 0.1 

99.0 0.0 



0.0 0.0 

13.0 0.0 

10.3 0.0 

4.3 0.0 

10.4 0.0 

0.0 0.0 

0.0 0.0 

4.2 0.0 

0.9 0.0 



0.0 (all) 

1.8 {snap} 

2.0 {all} 

0.0 {snap} 

2.5 {all} 

0.0 {snap} 

0.0 {all} 

1.2 {snap} 

1.2 {all} 



IOM-chan 


# of 


connects 


% 


% 


% 


% 


load 


number 


connects 


per min. 


idle 


wait 


busy 


backlog 


factor 


0-08 


35869 


108 


95.0 


0.0 


5.0 


0.0 


0.0 




89471 


60 


97.3 


0.0 


2.7 


0.0 


0.0 


0-09 


37009 


111 


94.9 


0.0 


5.1 


0.0 


0.0 




90966 


61 


97. 3 


0.0 


2.7 


0.0 


0.0 


0-10 


34899 


105 


95.0 


0.0 


5.0 


0.0 


0.0 




88389 


59 


97. 3 


0.0 


2.7 


0.0 


0.0 


0-11 


37347 


112 


94.9 


0.0 


5.1 


0.0 


0.0 




91120 


61 


97. 3 


0.0 


2.7 


0.0 


0.0 


0-12 


36444 


110 


94.8 


0.0 


5.2 


0.0 


0.0 




90643 


61 


97.2 


0.0 


2.8 


0.0 


0.0 


0-13 


35007 


105 


94.8 


0.0 


5.2 


0.0 


0.0 




88993 


60 


97.2 


0.0 


2.8 


0.0 


0.0 


0-14 


35063 


106 


94.9 


0.0 


5.1 


0.0 


0.0 




89020 


60 


97. 3 


0.0 


2.7 


0.0 


0.0 


0-15 


36184 


109 


94.8 


0.0 


5.2 


0.0 


0.0 




89513 


. 60 


97.2 


0.0 


2.8 


0.0 


0.0 


0-16 


13068 


39 


97.5 


0.0 


2.5 


0.0 


0.0 




69413 


47 


97.3 


0.0 


2.7 


0.0 


0.0 


0-17 


13066 


39 


97.5 


0.0 


2.5 


0.0 


0.0 




69394 


47 


97.2 


0.0 


2.8 


0.0 


0.0 


0-20 


52643 


159 


93.7 


0.0 


6.3 


0.0 


0.0 




218965 


148 


94. 5 


0.0 


5.5 


0.0 


0.0 


0-21 


52661 


159 


93.7 


0.0 


6.3 


0.0 


0.0 




218562 


148 


94.5 


0.0 


5.5 


0.0 


0.0 


0-22 


52695 


159 


93.7 


0.0 


6.3 


0.0 


0.0 




218754 


148 


94.5 


0.0 


5.5 


0.0 


0.0 


0-23 


52756 


159 


93.8 


0.0 


6.2 


0.0 


0.0 




218812 














0-24 


1002 


3 


81.9 


0.0 


18.1 


0.0 


0.0 




3666 


2 


86.6 


0.0 


13.4 


0.0 


0.0 


0-25 


333 


1 


95.1 


0.0 


4.9 


0.0 


0.0 




3838 


2 


88. C 


0.0 


12.0 


0.0 


0.0 


0-28 


323 


0 


95.5 


0.0 


4.5 


0.0 


0.0 



{ snap } 
(all) 





323 


0 


99.0 


0.0 


1.0 


0.0 


0.0 


{all} 


0-30 


3773 


11 


81 . 3 


0.0 


18.7 


0.0 




{all?' 




12537 


8 


86.2 


0.0 


13.8 


0.0 


0.0 




1-12 


35722 


108 


94.8 


0.0 


5.2 


0.0 


0.0 


{ snap } 




89816 


60 


97.2 


0.0 


2.8 


0.0 


0.0 


(all) 


1-13 


35882 


108 


94.9 


0.0 


5. 1 


0.0 


0.0 


{snap} 




90038 


61 


97.2 


0.0 


2.8 


0.0 


0.0 


{all} 


1-14 


35451 


107 


94.9 


0.0 


5.1 


0.0 


0.0 


!lll} } 




89428 


60 


97.2 


0.0 


2.8 


0.0 


0.0 




1-15 


35074 


106 


94.9 


0.0 


5.1 


0.0 


0.0 


{snap} 




88369 


59 


97.3 


0.0 


2.7 


0.0 


0.0 


{all} 


1-20 


52686 


159 


93.7 


0.0 


6.3 


0.0 


0.0 


{all? 1 




218892 


148 


94.5 


0.0 


5.5 


0.0 


0.0 




1-21 


52730 


159 


93.7 


0.0 


6.3 


0.0 


0.0 


{all? 1 




















1-22 


52713 


159 


93.7 


0.0 


6.3 


0.0 


0.0 


{snap} 




218547 


148 


94.4 


0.0 


5.6 


0.0 


0.0 


{all} 


1-23 


52590 


159 


93.7 


0.0 


6.3 


0.0 


0.0 


{snap} 




218501 


148 


94.5 


0.0 


5.5 


0.0 


0.0 


{all} 



NETCON 

• NEW IN COO 

- REPLACES FEPCON 

- REPLACES PART OF FEPANLZ 

• INITIALLY USED IN $XINSTALL 

- DEFINE NODES 

- DEFINED DEFAULTS 

12-1 A INT 8/85 



NETCON (CONT) 

• NEXT USED TO REDO IT ALL 

- TO MAKE CORRECT CONFIG FOR 
SITE 

- COULD USE $XINSTALL_LOCAL:SYS 

• TWO PARTS OF THE WORLD 

- LOCAL FEPS (LFEPS) 

- REMOTE FEPS (RFEPS) 



12- IB INT 8/85 



BOOT INFO 







LFEP 


RFE 


• MONITOR 




M:FEP 


M:FEP 


• LIBRARY ACCOUNT 




:SYS 


:SYS 


• HANDLERS 


#1-> 


NODEADMN 


NODEADMN 




#2-> 


COUPLER 


HDLCX25 



12-2 INT 8/85 



BOOT PARAMETERS 

• DEFAULTS CAN BE USED (MOSTLY) 

• EXCEPTION IF TP OR FPRGS 

• EXCEPTION: NSHUF 



12-3 INT 8/85 



HANDLER PARAMETERS 

SELECT H=HANDLER COMMAND 
COMMON PARAMETER NAMES 

- MEM 

- IOMEM 

SPECIAL PARAMETERS PER HANDLER 



12-4 INT 



HANDLER DEFAULTS 

• DEFAULT HANDLER COMMAND 

• COMMON PARAMETERS NAMES 

- ENABLE, REENABLE 

• SPECIAL PARAMETERS PER HANDLER 

- BLOCK, UNBLOCK 

- BUFSIZE 

12-5 INT 8/85 



CONFIG COMMANDS 

• USED ON SPECIFIC LINES 

• USED TO SUPPLY AUTO LOGON 

• USED TO SET SPECIAL PARAMETER 
VALUES 



12-6 INT 8/85 



NETWORKING (RFEPS) 

MULTIPLE PROCESSORS 



- NETCON 

- SUPER 

- PIGETTE 



12-7A INT 



NETWORKING (RFEPS) (CONT) 

• XEQ FILES 

- STARTING POINT 

- EDIT GLOBALS AND NETCON 

- XEQ SUPER AND NETCON 

- REBOOT LOCAL 

- MAKE DISKETTE 

- PUT DISKETTE IN RFEP 

- BOOT RFEP MANUALLY 



12-7B INT 8/85 



13:09 AUG 22 '65 SXINSTALL. : SYS 



12HO-1 



1 .000 
1 .500 
2.000 
3.000 
4.000 
5.000 
6.000 
7.000 
8.00C 
v. COG 
10.000 
11 .000 
12.000 
13.000 
14.0G0 
1 5.000 
16.000 
17.000 
12.000 
19.000 
20.000 
21 .000 
22.000 
23.000 
24.000 
25.000 
26.000 
27.000 

2 3.000 
29.000 
30.000 
31 .000 

3 2.000 
33.000 
34.000 
3 5.000 
36.000 



ECHO 

"!RE?CRT ST = P=FULL 

M DINGO ghost starting using ! XEQ $X I N ST ALL . : S Y S 
SET M5LL Mc 

*' File: JXINSTALL. : SYS (COO version) 

" This file is X E 3 ' cl by the system DINGO ghost after tape boots 
" jitr the eomnand: 

" !X=C SXIN STALL. : SYS 300TFLAG=nn 



02 for taoe boot/ 

03 *or tioe boot/ 

04 for t=ip? boot/ 

05 for taoe boot/ 

06 for taps boot/ 

07 for disk boot 

0? for disk boot (with reconstruct) 

0 9 for recovery 

10 -for recov?ry (lost dumpfile(?)) 

11 'or operator recovery (fron taps) 



Y to new file system 

S to new file system 

N to new file system 

S to new file system (with reconstruct) 

N to new file system (with reconstruct) 



IF e00TFL4G=11 TH 
IF ;00TFLAG=10 T H 
1= 300TFLA5=9 
IT- =*00T = LAG = 3 
I c =00T=LAG=7 
IF 300TFLAG=6 
IF a00T=LAG=5 
IF ?0CTFLAG=4 
I c 300TFLA5=3 
IF EOOTPLA3=2 
PRIV ALL 

" ThIS PART GETS EXECUTED ON EVERY SYSTEM STARTUP 



DINGO is running after a tape-initiated OR 
DINGO is running after a recovery ( DUMP F) 
THEM M CINGO is running after a recovery 
THEN m DINGO is running after a disk boot/ reconstruct 
THEN M DINGO is running after a disk boot 
THEN M DINGO is running after a TAPE boot/ 
THEN m DINGO is running after a TAPE boot/ 
THEM m DINGO is running after a TAPE boot/ 
THEM M DINGO is running after a TAPE boot/ 
THEN !* DINGO is running after a TAPE boot/ 



N to new files/ 

S to new files/ 

N to new files 

S to new files 

Y to new files 



33 - 37.000 »" NOTE THAT PACKSETS OTHER THAN *SYS MAY NOT BE UP AT THE TIME 
3° " 33.000 !" THIS IS RUN, SO YOU SHOULDN'T DEPENO ON BEING ABLE TO GET TO 
40 - 39.000 !" PILES OTHER THAN THOSE ON ¥SYS! 

uz - 4l!oOO !" 

<.3 - 42 . 0 DO !PCL 

44 - 43.000 MOD TP_CNTRL_0. : SYS TO ( AC S + ( (T t> A ?/ TPC P ? ) / WNE W / RE AD /UPO ) ) 

45 - 44.000 " And-ew snd J.L./ this is for you. Love/ JJ 

46 - 45 .000 MOD : J03STATS. :SYS(SH) TO ( A CC ( ( : S Y S ) / R E AO/ OEL R/ WNEW /UPD/ OELF/ RE A TTR ) / ; 

47 - 46.000 ACC+((?)/EXEC)/; 

45 - 47.000 ACS+CCIBEX), READ, KNEW, UPO),; 

40 - 43.000 ACS+((A.X)/REAO)/; 

50 - 000 ACS+((SYMB0)/READ),; 

51 - 30.000 ACS+C(PEEK.X)/READ)/; 

52 - 51.000 ACS+((BASS)/READ)/; 

53 - 52.000 ACS+C(FILER.X),READ>#; 

54 - 53.000 ACS+(CM0M.X)/R£AD)/; 

55 - 34.000 ACS + UMCM) /READ)/; 

56 - 55.000 ACS + ((TERM)/READ)// 

57 - 56.000 4CS+C(WOO0PECKER)/REAO)/; 
5? - 5 7 .000 ACS+((RO.X)/REAO)) 

5« - 5? .000 'NO 

60 - 59.00C !" 

o1 - 60.000 !" Sp?cial step: let; you create a file in :SYS that gets XEQd 

6c - tl.OOO !" whenever this job does. For example/ on the LAOC L66B machine/ 

c3 - 62.000 !" sine? that machine has 3270's configured/ the file $X IN S T ALL.LOC AL 

34 - O3.000 !" contains ? line like: 

65 - 64.000 !" 

66 - 65. 000 !" !C : SH4R;0_LCP5. RELEASE. : SYS OVER : SHARED.LCP*. SYSTEM. : SYS 
07 - 66. COO !" 

oS - 67.000 !*' that the LAOC L66A doesn't need. 

69 - 68.000 !" 

70 - 69.000 !" note that when this file runs/ there is no guarantee that packsets 

71 - 70.000 !" oth?r than DPPSYS are mounted/ so don't expect anything extra-fancy 

72 - 71.000 !" to work hers. Also/ you may find that changing user-maximums and 
7? - 72.000 !" other CONTR OLlcible values may not work as you think they might. 

74 - 73.000 !" 

75 - 74.000 !" This jo's is primarily to guarantee that a system comes up right! 

76 - 75.000 !" It par-forms L 6 0C~cte f ine d specific tasks/ that are mostly support 



") ) ) 



77 - 76. COO !" oriented. If this job or Sx INSTALL. LOCAL can be adapted to do what 12HO-3 

78 - 77.000 !" you want/ that's oreat. If not: Sorry/ Charlie. 
7° - 78. 000 !" 

30 - 79. 000 !I C T=I0_=XIST<*$XINSTALL_L0CAL.:SYS') THEN XE0 $ XI NS T ALL.L0C AL . : S Y S THI S800T=800TFLAG 

81 - iO.COO !lr £00TPLS5>6 T^EN SOTO END OF TAPE.eOOT 

£2 - 31.000 !" 

34 - 13.000 !" The stuf* in this section only gets EXECUTED after a tape boot 

S6 - 55.000 !TAPE_?00T ONLY: 

37 - 66.000 !" 

88 - 37.000 !" This section copies the system authorization files over themselves 

8<< - 38.000 !" so they ?et their uoper_level key granules rebuilt and data soace 

90 - 89.000 !" recovered. You may not notice it/ but average logon time drops 

91 - 90.000 !" dramatically if the authorization files aren't fragmented. Also/ 

92 - 91.000 !" the C0C :USERS records are fixed size/ so changing a password or 

93 - 92.000 !" orofile allows the record to be rewritten IN PLACE/ also getting 
v<i - y3.000 !" ricl of a primary source of f r eomen t a tion . 

95 - 94.000 !" 

96 - 95.000 !IF SFI0_EX1ST(':RATES.:SYS') THEN CA :RATES.:SYS OVER .:SYS 

9 7 - 96.000 JIF 5FIdI:XIST C* :PB0. :SYS') THEM CA :PR0.:SYS OVER .:SYS 
*8 - 97. 000 ! I c ?Fi:_EXIST(*:WSN.:SYS*) THEN CA :WSN.:SYS OVER .:SYS 

- yS.OOO ! l : iFID. EXIST (' :0SYMS. : SYS') THEN CA :OSY«B.:SYS OVER .:SYS 

1C0 - 99.000 !IF •5FID_EXIST(':NFTC0N. :SYS') THEN CA :NETC0N.:SYS OVER .:SYS 

101 - 100. C00 !IF ? C ID :XISTC':*0RM.:SYS'> THEN CA :F0RM.:SYS OVER .:SYS 

102 - 101 .000 !IF <FID_eXISTC:HLP.:SYS') THEN CA :HLP.:SYS OVER .:SYS 

103 - 102.000 !I= «.fid_EXIST(':USERS.:SYS') THEN CA :USERS.:SYS OVER .:SYS 

104 - 103. 000 !IF *<=ID_£XIST(*:NAME. :MAIL*) THEN CA : NAME . : MAIL OVER . : M A I L 

105 - 104.000 !IF $f:d cXIST(':MAIL_CENTRAL.:MAIL') THEN CA :MAIL. CENTRAL. :MAIL OVER . : M A I L 

106 - 105 .000 !IF * = n_EXIS T C: : D a T CH. :SYS') THEM CA ::PATCH.:SYS OVER .:SYS(LN,C) 

107 - 106.000 !IF -tF:o.EXIST('::RUM.:SYS*) THEN CA ::RUM.:SYS OVER .:SYS(LN/C) 
103 - 107.000 ! LET PATCH = ILE = ':PF'| |$VERSION| |'.:SYSTAC 

10° - 10».000 !IF «FIO_EXIST(*:PLOVSR. ;SYS')=0 THEN GOTO SK I P.PLO VER ING 

110 - 109.000 !" Ra«v» OUTPUT INTO/ ECHO/ KILL RUM/ and ALIB RET from ;PL0VER. 

I 1 1 - 1 10.000 !C : PLCVER. : S Y S ( 3-5; ( 5F I D R EC S ( ' : PLO V E R . : S Y S ' > - 2)) OVER :: PLOVER .: SYS (LN/O 

112 - 111.000 !IF STEPCC=0 T*EN DEL CLOVER. :SYS 

113 - 112.000 IPLCVER /"IE 0V c R / * PL 0 V E P z I L E 

II 4 - 113.000 s;JO : : D L?VER. :SY3 
115 - 114.000 END 



116 " 115.000 !IF $FIQ_EXIST('*PATCHFILc'> THEN C XPATCHFILE,*PLOVERFU£ OVER *PATCHFILE ClNrC) 12HO-4 

117 - 116.000 !G0TC PLOVER OR. NOT 

118 - 117.000 ! SKIP_t>tOVERIN3: IF $FI D_SX I ST< *XPA TCHFILE ' > THEN CA XPATCHFILE OVER . : SYSTAC (LN,C> 

119 - 113.000 ! PLOVEP_CR.NCT : LET DELETE PATCriFILE 

120 - 119.000 !M Dinso s?y=: this boot /duiof i le revision is XSVERSION 

121 - 120.000 !" 

122 - 121. COO !" build soria default stuff on Y to neu file system boot 

123 - 122.000 !" and/or we've lost : NETCON 

124 - 123.000 !" 

125 - 124.000 !IF b=:0_?XIST(':NSTCON.:SYS*) THEN GOTO 5 K I P.NETCON.STEP 

126 - 123.000 ! NETCOM 

1 27 - 1 26.000 ~ E F N0DE=0,NAM6=HOST,TYPE=ME 

123 - 12'. OOP OEc NC3E = 1 /•TYPE^FEP 

12V - 125.000 OcF N0?5=2/TYPE= C EP 

130 - 129.000 OEF N0DE=3/TYP5=F=o 

131 - 1 30.000 D E c NCDc = 4/TYPE = = EP 
1 32 - 1 31 . 000 DEF \'0DE = 5,TYPE = FE° 
1 33 - 1 32. 0C0 OcF N0rE = 6,TYPE = c E'> 

134 - 133.000 DEF NOD E =7 , T Y P E== E ? 

135 - 134.000 3EF N 3 Oz- *, T YP E=FEP 
1 36 - 1 35. 000 D E p MO DE =9, T Y p E =F E P 
137 - 136.000 OEr M 0 C E =1 0 , T Y °E =F E P 
133 - 137.000 0E C \C 0 E =1 1 , T Y PE =F E P 
13« - 135.000 DEF NC0E=12/TY°E=FE D 

140 - 13<«. 000 D E c NODE = 13rTYPE = FEP 

141 - 1 40.000 OcF \'C0E = 1 4/TYB£ = rFP 

142 - 1*1 . 00C DEF IMC0E = 1 5yTYPE = = EP 
14? - 1i2.000 OEF N3CE=16/TYP£=rEP 

144 - 143.000 SEL N = 1 

145 - 144.000 DEFAULT ASYNC PRO= ' D^L PR =' 

146 - 1 45.000 S EL N = 2 

14? - 146.000 DEFAULT ASYNC PRO= * O c L P R F' 

1 4-i - 147.000 S EL N = 3 

14° - 148.000 DEFAULT ASYNC P R 0 = ' D FL P R c ' 

150 - 14V.000 S EL N = 4 

1 51 - 1 50.000 DEFAULT ASYMC PR 0= ' OFL 0 R = ' 

1 52 - 151 .000 S EL N=5 

153 - 152.000 D£=AULT ASYNC PR0='DFL p RF' 

154 - 1 53.000 S EL N = 6 



1 



155 - 154.000 CEFAULT ASYNC PR0= ' D^L P RF ' 12HO-5 

1 56 - 1 55. 000 SiL N = 7 

1 57 - 1 56.000 DEFAULT ASYNC D R0=*D c L t, R p " 

15S - 157.000 SEL N = 3 

159 - 158.000 DEFAULT ASYNC °R0='D c L o RF' 

160 - 15V. 000 SEL N = 9 

161 - 160.000 DEFAULT ASYNC PR0='9 C LPRF' 

162 - 161.000 SEL \=10 

163 - 162.000 DEFAULT ASYNC PR0='3FLPR=' 

164 - 1o3.000 SEL M = 11 

165 - 164.000 DEFAULT ASYNC PRO='0FLPRF* 
1o6 - 165.000 SEL N = 12 

1 67 - 166.000 D E c A U L t ASYNC PRO='DFLPRF* 

168 - 167. 000 SEL N = 13 

16° - 168.000 DEFAULT ASYNC PR0='DFLPR=' 

170 - 160. 000 5 cL N=14 

171 - 170.000 DEFAULT ASYNC PPO='D=LPRF' 

172 - 171.000 SEL N=15 

173 - 172.000 DEFAULT ASYNC PRO='0FLPRF' 

174 - 1 73. 000 S EL N = 16 

175 - 174.000 DEFAULT ASYNC PRO=*D c L°RF' 

176 - 175.000 END 

177 - 1 7s. 000 ! SU ~ E R 

173 - 177.000 REN PROFILE SASYNC 

179 - 173.000 CREATE 0 R 0 F I L E IASYNC A SYNC 

130 - 17y.000 "NULL" 

151 - 150.000 M PRC O c LHC from SASYNC "default hardcopy" 

132 - 131 .000 TA3SI'4=YrS; T A 8 R E L A T I V E = YE S ; SP A C E I N S E R T = Y ES ; 0 1 S P I N e UT = YE S 
1*3 - U2.000 =ULL3'JXPAPERTAPE=N0; H A L C 0UX P A P E RT A PE = N0 ; LOW£RCASE=NO 

1*4 - 133.000 HEI5HT = 0; P ROr, DT A 3 = NO/' L IM 30CLM = Y E S 

135 ~ 154.000 NOOPTMII=NO 

1 56 - 135.000 OEVICE a S = YES; E 0 1 TO VR = YF s; 3L A N K E R A SE S = NO; LOW E RC AS E PR INT S = NO 

137 - 136.000 CHARSETNSME=ASC64; iNPUT=Y6S; OUTPUT=YES 

133 - 1 37.000 SEND8KSPACE = N0; ACTONTRN = NO; A P LLCNRM = Y E S ; OPOTAS=NO 

139 " 133.000 DEVICECR = Y?S; DEVICE LF=YES/ AUTONL = NO; CRISNL=NO; LFISNL = NO 

190 - is9.ooc devpcsopts=no; ae>l=no; 8in=no; printtype=yes; TTYTYPE=YES 

191 - 1 90.000 retypovr=no; scroll=no; °AGEHALT=NO 

1V2 - 1*1.000 PRINTHALT=NO; RELPAS"=NO; D E V SC R 0 LL =N0 ; CURSORUP=NO; T R UO VRPRT= Y E S 

193 - 192.000 TMNALG PRM1=0; TMN ALG_ P RM2=0 ; TMNALG PRM7=0; T MNA LG.A F TCR =0 ; TMNALG_AFTLF=OJ ERSTIM=0 



194 - 1V3.000 "NULL" 12HO-6 

195 - 194.000 M PRO DPLCPT FROM SASYNC "default CRT" 

196 - 195. coo ta2si^ = y5s; t a b r el at i v 6= ye s ; sp ac e i ns ert= y e s ; 01 s pinput = y e s 
19? - 196.0c0 full0ux°apertape=no; h a l fq u x o a o e p t a pe = n 0 ; lowercase=n0 

19? - 197.000 he:gkt=;; progdtabsno; l:mboclm=yes 

199 - 196.000 nocptmiz=no 

200 - 1 99.000 devics>?s = yes; blankerases=yes» lo we rc a s e pr ints=no 

201 - 200.000 charsetname=ascb4; imput=yes; output=yes 

202 - 201.000 setjobkspacf = nc; actontpn=no; apllcnrm=ycs; opotab=no 

203 - 202.000 oevicecr=yes; cevicelf=yes; autonl=no» crisnl=no; lfisnl=no 

204 - 203.000 devposopts=no; apl=no; 3in=no; printtype=yes; TTYTYPE=YES 

205 - 204.000 R=TYPCVR=NO; EOITOVR=NO; SCROLL=YES; PAGEHALT=NO 

206 - 205.000 PRINTHALT=YES; RSLPAGE=YES; 0 E V SC ROLL= Y c S; C UR SOR U°=NO ; TRUOVRPRT=NO 

20? - 206.000 TMNALG.PRM1 =0; TMNALG PRM2 = 0; TMNALG PRM7=0; TMNALG AFTCR = 0» TMNALG_AFTLF=0; ERSTIM = 0 

20S - 207.000 "NULL" 

209 - 20*. 030 M PRO TTY FROM O^LHC "Vary basic and slom" 

210 - 209.000 OEVICE*S=NO; EOITOVR = NO 

21 1 - 210.000 A<JI0T.i = 72; ?WICTH=72; HE IGHT=0 

21 2 - 211 .000 CHARSETNAME = aSC64; LO W E R C A S E PR I NT S = NO 

21 3 - 21 2.000 OEVICcCR = YES; DE V I C EL F = Y E S ; AUTONL=NO; CRISNL=NO; LFISNL = NO 

214 - 21 3.000 TMNALG. °RM1=2.5; TMNALG PRM2=166.7; TMNALG PRM7=66.7; TMNALG A FTC R = 1 / TMNALG AFTl F=2/ ERSTI 

0 

215 - 214.000 "NULL" 

216 - 215.000 M PRC DFLPRF FROM TTY "Default profile (before logon)" 

217 - 216.000 FCNT8L=CP5 
21S - 217.000 "NULL" 

219 - 21 8.000 E NO 

220 - 219.000 !C MS OVER $ X t> 13 AL L . : S Y S CLN ) 

221 - 220.000 !!CE C AULT PACKSET=SYS 

222 - 221 .000 ! !?IG 

223 - 222.000 CR D D ~ p ACKSET. SUPPORT GR=5000 

224 - 223.000 CR 0 p * ? ACK S ET . X GR = 1 0000 , £ XEC =? 

225 - 224.000 CR D p if ACK S ET. : XS I GP=15000 

226 - 225.000 CR 3 D S D ACKSET. : L I B R AR Y GS=?000, RE AD=? 

227 - 22s. 000 CR 0° 2 PACK SET. OS mo GR = 5 000, RE A0 = ? 

22* - 227.000 CR C 3 * » A C K S E T . : D E MO S I C- R =1 0000/ R E A0 = ? 

22=> - 228. 000 CR 0° ACCS ET .: CONVERT GR=5000 

230 - 229. 000 C R D'-PACKSET. : QU A C GR = 5000 

231 - 230. 000 CR 0 P » p A C K S E T . : CO OP RC GR = 5000 
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232 - 231.000 CR OP2PACKSET. : SRB GR=2500/RFAD=? 12HO-7 
253 - 232.000 CS DP#PACKSST. : OOCUM GR = 6000/-RS AD = ? 

234 - 233.000 CR OokpaCKSET. : FEO GR=3000 

235 - 234.000 C P OPtfPACKSET.NUUACCT G*»1/9EAD»? 

236 - 235.000 CISM DP*?ACK3ET 

237 - 23e.O00 ENC 

233 - 237.000 ! {RELEASE DP«PACKSET 
239 - 23S. 000 15KIP.NETC0N STEP: 
240- 239.000 ! EN3.0F_TAP=.300T: 

241 - 240.000 !M DINGO axiting, steocc = XSTEPCC 



2 '35 :M5TC0N_A.IZ0LS3MH 

1.000 INETCON 

2.000 DEL MOD;=0 

7.000 DEL N0DE=1 

4.000 "EL M0Dc=2 

5.000 DEL N0DE=3 

6.000 DEL NODE =4 

7.000 DEL N0DS=5 

S.OGO DEL *Cns*6 

9.000 DEL N0DE^7 

10.000 DLL N0DE=8 

11.000 DEL N00E=9 

12.000 DEL NOD==10 

13.000 DEL N00E=11 

14.000 DEL N0CE=12 

15.000 DEL N0DE=13 

16.000 DEL N0DE=14 

17.000 DSL N0CE=15 

18.000 r EL N 3D E = 1 6 

19.000 DEL NCPE=17 

20.000 DEL NCDE=1 

21.000 DEL N003=19 

22.000 DEL NDD==20 

27.000 DEL N0DE=21 

24.000 DEL NODE=22 

25.000 DEL NCDE=32 

26.000 DEL NC?E=33 

27. 000 DEL N0DE-3<. 

2S.000 D E c M0CE = 0,NV1^ = L66A,TYPE = M5 

2V.0OO OEF fJ0DE = 1 /NAME = L6l/TYPE=FEP,C0NTR0L = L66A 

30.000 DEF N00E = 2/'NAME = L6II/'TYPE = DE3UG/C0NTR0L=L66S 

31.000 DEF N0DE=3,N4ME=L6III/TYPE=0S3UG/C0NTR0L=L669 

32.000 DEF N0DE=4,Na«?=L6IV,TYPE=FEP,CCNTR0L=L46A 

33.000 DEF N0DE=5/NaME=L<3V,TYPE=0ESUG/C0NTR0L=L669 

34.000 DEF N'0DE = 6/NAME = L6VI,TYPE = F = P/CONTROL = L66C 

35.000 D: c fJ00E=7,NaME=L6VII/TYOE=D c 3UG/C0NTR0L=L663 

36.000 DEF \C0E = S,»jaM=- = L6VIII,TYOc = F£P,C0NTRDL = L66A 

37. 000 DE= \00E = ?, , m4' j |p = L6IX,TYoE = FEO/'CCNTR0L = L66B 



12H0-8 
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33 - 38.000 0E C K'0DE = 10/NAME = L6X/TYPF = CE3UG/CONTROL=L66S 12HO-9 

39 - 39.000 DEF NODS =1 1 , NA M£=L6X I / T Y P£ = FEP/ CONT R0l=L669 

40 - 40.000 Dcp N0DE=12/NAME=L6XII/TYPE=FEO/C0NTR0L=L663 

41 - 41 .000 DEF N0CE=1?/NAME=L6XIII/TYPE=DE3UG/C0NTR0L=L66? 

42 - 42.000 DEF NO0E=1 5 / N4 ME= L6 X V/ T Y PE = DE 9U G/ CONTRO L=L66 A 

43 - 43.000 DEF N00c=20/NAM==L66»/TYPE=H0ST 

44 - 44.000 OEF N00E=21 / N A ME = L6 6 Or T Y PE = HOST 

45 - 45.000 OEF N0D==22/N4 W :=L66C/TYPS=H0ST 

46 - 46. 000 0E<= N0CE = 32/NAM5 = 0VPEP,TYPE = c EP/.C0NTi?0L = L66A 

47 - 47.000 OEF \0DE=33/NAME=CRFE°/TYPE=FcP/C0NTR0L=l66A 

48 - 4H.000 OEF MOO E= 34, N 1 ME=C °6F E P / T Y P E =FE P/ CONTROL =L 66 A 

40 - 40.000 " L66A : NETCON - 0 E F a U L T COMMANDS A NO CONFIGS FOR FSP 4 " 7 

50 - 50.000 S EL N00E = 4 

51 - 51.000 SET 300TINF0 

52 - 5 2.000 vi : pep. :S YS 

53 - 53.000 5 

54 - 54.000 NOD E A 3 IN 

55 - 55.000 N0CEAD"N. :SYS 

56 - 56.000 COUPLER 

57 - 57.000 COUPLER. : SYS 
5* - 5*. 000 A SYNC 

55 - 59.000 4SYNC.:SYS 

oO - 30.000 3ISYNC 

61 - 51.000 3ISYNC.:SYS 

62 - 62.000 HCLCX25 

63 - 63.00? H0LCX2?.:SYS 

64 - 64.000 :SYS 

65 - oS.OOC DEFAULT 4SYNC ; 

66 ~ 66.000 I N PUT = YES/; 
6? - 67.000 OUT°tlT = YES/; 

e5 - 68.000 SALUTATION = YES/; 

69 - 69.000 s°eeo = auto/,' 

70 - 70.000 enable = yes/; 

71 - 71.000 reema3lf = yes// 
7? - 72.000 o^cpctr = no/ ; 

73 - 75.000 HARDWIRE = vc S ,; 

74 - 74.0C0 ECHOLOSON = NO/ ; 

75 - 75.000 LDG0NTI1E0UT = 5/; 
7fc - 76.000 REAPTIMEOUT = 0,7 
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77 - 77.000 PROFILEs'DFLORF' 12H0H0 

78 - 7'j.ooo Default bisync ; 

70 - 79.000 INPUT = YFS,; 

30 - 50.000 OUTPUT = YcS/; 

31 - 31.000 S = EED = 2400/; 

42 - 52.000 REMOTE = TERMINAL/; 

83 - -33. 000 ENABLE = YES/, - 

84 - 34.000 HAROWIRE = Y c ; 

85 - 35.000 CLOCKING = NO,; 

86 - 56. OOC REENA3LE = YES/; 
37 " 67.000 REAOTIMEOUT = 0 
33 - J*. 000 DEFAULT HDLCX25 ; 

89 - 69.000 INPUT = YES//* 

90 - 90.000 OUTPUT = YES/,* 

91 - V1.000 SPEED = AUTO/ ; 
52 - 92.000 REMOTE = HOST,; 

93 - 93.000 ENA3LE = NO/ ; 

94 - 94.000 HARDWIRE = YES/; 

95 - 95.000 CLOCKING = NO/ ; 

96 - V6.000 RSENA8LE = YES//' 

97 - 97.000 READTIM50UT = 0 

93 - 9a. 000 CON c IG .4A30 H A R D U I R E = N0/ 0 RO POT R = Y E S/ LO GONT I ME OUT = 5 / P E A DT I ME0UT=2 

99 - 99.000 CONFIG .4330 H AR 0 W I R E = N 0 /DROPOT R = Y E S / LOGONTI ME OUT =5 / R E A OT I«E0UT=2 

100 - 1 00.000 CO.NFIG .5000 E N A B L E = Y E S / L0G0N = ' LNK T 034 A * "Phoenix HL SUA RFEP 

101 - 101. OOC CONFIG .510C E N A BL E = YE S / L0G0N = * LNK T 034 8 ' "Phoenix HL SUA RFEP 

102 - 102. OOC CONFIG .5200 EN4BL E =Y E S / L0G0N=' LNKT033 A * "Phoenix MEW-CRF RFEP 

103 " 103.000 CONFIG . 5300 S N A 8 L E = Y E S / L0C0N= * LNKT 03 3 8 * "Phoenix MEW-CRF PFEP 

104 - 104. COO CONFIG .1030 BUF=256 "rm ?84 Fosnight 

105 - 1 05.000 CONFIG .1300 S°EEC=300/HARP=N0/L0G0N="ALEX0EV PRO* A LE X PRO ' / S AL = NO "ALEX modem 

106 - 105.500 CONFIG .1330 S p E E 0= 1 200/ HA R 0=N0 / L0G0N= ' I C0M1 ' , S AL=N0 

107 - 106.000 CONFIG .2300 3UF=254 "rm 212 Anderson 
103 - 107.000 CONFIG .1520 8UF=128 "JLJ RM241 I3MPC" 
10* - 1 07. 500 SET N$-)U C = ?24 

110 - 108.000 S EL M=3ISYNC 

111 - 1C9.000 SET *Ev.= j4 

112 " 1 1 0.000 " L6tC :MrTCON - DEFAULT COMMANDS A NO CONFIGS C 0R FEP 6 " ; 

113 - 111.000 SEL N0DS=6 

114 - 112. COO SET -.OOTIN = 0 

115 - 113.000 i":FEP.:SVS 
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116 - 114.000 5 

117 - 115.000 N00EADVN 

11S - 116.000 N00=4D"N. : SYS 

119 - 1 1 7.000 C 0U PL E R 

120 - 118.000 COUPLER. :SY3 

121 - 119.000 ASYNC 

122 - 120.000 ASync.:SYS 
12? - 121.000 a ISYNC 

124 - 122.000 ?ISY^C.:SYS 

125 - 123.000 HDLCX25 

126 - 124.000 HDLCX25. :SYS 

127 - 125.000 :SYS 

128 - 126.000 DE=AULT 1 S Y NC ; 

129 - 127.000 INPUT = YES,; 

130 - 128.000 OUT°UT = YES/,' 

131 - 12V. 000 SALUTATION = YES, 

132 - 130.000 SPEED = AUTO,; 

133 - 131.000 ENA3LE = YES,; 

134 - 132.000 REENA5LE = YES,; 

135 - 133.000 DRQOOTR = NO, ; 
13* - 134.000 HARDWIRE = YES,; 
1 57 - 1 35.000 EC rIOLOGON = NO, J 
13R - 136. OCO LOGCNTIMEOUT = 5, 
13y - 137.000 R'ADTIMEOUT = 0,; 
HO - 138.000 PR0=ILE='0FLPRF' 

141 - 139.000 DEFAULT 5ISYNC ; 

142 - 1 40. OCO INPUT = YES,,* 

143 - 141. ODC 0UT=U T = YES,; 

144 - 142.000 SPEED = 2400,; 

145 - 143.000 REMOTE = TERMINAL 

146 - 144.000 E N A SL E = YES,; 

147 - 14 5.000 HARDWIRE = YES,; 
143 - 146.000 CLOCKING = NO, » 
1<,9 - 1 47.000 R E r N A C L F = YES,; 

150 " 148. 000 RE»0TI*ieOUT = 0 

151 - 14^. 300 DEFAULT H 0 L C X 2 5 i 

1 52 - 1 50.000 I\PUT = YES,," 

IS'' - 151. .100 OUTPUT = YES,; 

1 54 - 1 32.000 SPEED = AUTO, ; 



155 - 155.000 REMOTE = HOST,; 12H0-I2 

156 - 154.000 ENA3LE = NO/ ; 

157 - 155.000 HARDWIRE = YES/,* 
1 SB - 156.000 CLOCKING = NO / ; 

159 - 157.000 REENASLE = YES/; 

160 - 158.000 REAOTIMEOUT = 0 

161 - 159.000 CONFIG .4900 R E MOT E =H0 S T, L OGON = ' L66 A ' 

162 - 160.000 " LSsA : NETCON - DEFAULT COMMANDS AND CONFIGS FOR F5P 8 " ,* 

163 - 1e1 .000 S EL N0DE = s 

164 - 162.000 ScT 300TINF0 

165 - 163.000 M:FEP.:SYS 

166 - 164.000 5 

167 - 165.000 NODHAOMN 

168 - 166.000 NODEADMN. : SYS 
16S> - 167.000 COUPLER 

170 - 168.000 COUPLER. : SYS 

171 - 16 3 .0GC ASYNC 

172 - 170.000 ASYNC. :SYS 

173 - 171. OOC 5ISYNC 

174 - 172.000 5ISYNC.:SYS 

175 - 1 73.000 n GL C X 2 5 

176 - 174.000 HDLCX25.:SYS 

177 - 175.000 :SYS 

178 - 176.000 Dc c AULT ASYNC ; 

170 - 1 77.000 INPUT = YES//* 

1 30 - 1 78.000 OUT°UT = YES/,* 

131 - 17V. 000 SALUTATION = YES/; 

182 - 130.000 S = 3E3 = AUTO,; 

163 - 131.000 ENABLE = YES/; 

134 - 132.000 HARDWIRE = YES/; 

185 - 133.000 REENA9LE = YES,; 

136 - 1E4.000 DSCDTR = NO/ ; 

187 - 1*5.000 =CHOLCGON = NO/ J 

133 - 1o6.000 LOGONTIMEOUT = 5//' 

120 - 1 37.000 REAOTI^EOUT = 0,; 

190 - 1S3.000 PROPIL:='0FLPRP* 

191 - 1S9.000 DEFAULT 5ISYNC ; 

1 92 - 190.000 If!PUT = YES,/ - 

193 - 191.000 OUTPUT = YES/; 



194 - 192.000 SPEED = 2400,; 12H0-13 

195 - 193.030 REMOTE = TERMINAL,; 

196 - 194.000 ENASLE = YES,; 

197 - 195.000 HARDWIRE = YES,; 
19S - 196. OCO CLOCKING = NO,; 
1*9 - 1V7.00P REENA3LE = YES/,* 

200 - 198.000 READTI^EOUT = 0 

201 - 199.000 DEFAULT HDLCX25 ; 

202 - 200.000 IN°UT = YES,/ 

203 - 201 . COO OUTP'JT = YES,; 

204 - 202.000 S'SED = AUTO,; 

205 - 203.000 REMOTE = HOST,; 

206 - 204.000 ENASLE = NO/ ; 

207 - 205.000 HARDWIRE = YES,; 

208 - 206.000 CLOCKING = NO,; 

209 - 207.000 REENA3LE = YES,; 

210 - 208.000 REATTIMEOUT = 0 

211 - 209.000 CONFIG .OCOO 9UF=256 "rm 2105 Sicklsr 
21? - 210.000 CONFIG .1200 BU C =256 "rm 252 Catozzi 

213 - 211.000 CONFIG .1930 8UF=256 "m 2110 H s tfield 

214 - 212.000 CONFIG .2380 L OGCN= ' DE 9 UG1 2 ' ,H A R D=N0, S A L=NO, SPEE 0=9 600, DROP= YE S, BUF=1 2 8, E N A BL E=N0 

215 - 213.000 CONFIG .2900 3UF=256 "rm 219 Touo 

216 - 214.000 CONFIG .2C00 3UF=25t "rm 213 Heying 

217 - 215.000 C0N=I5 .2F00 L0G0N="DE3UG9',HARD=N0,SAL=N0,S o EED=9600,DR0P=YES/3UF=128,ENA8LE=N0 
2H - 21^.000 CONFIG .2FS0 L OG 0N= ' D EB UG3 * , H AR D=NO , S AL=NO, SP E E D=9600 , DROP=YES , 9UF=1 28 

219 - 217.000 CONFIG .3400 S " E E D*1 200 , HA RD= YE S , S A L = NO, LOGON= ' name, acct , pas s ' , PROFI L E* ' T 18 5 5 ' ,LOGONT IMEOUT 

= 0 

220 - 21 3. 000 "CONFIG .3500 S 0 E z D = 1 200 ,H A RO = Y E S , S AL=NO, LOGON = ' n9me,acct ,pass ' , PROFIL E= ' T 185 5 * , LOGONTI MEOU 

r = o 

221 - 219.000 CONFIG .3500 
?EADTIKEOUT=0,PR0FILE=*QMS12O0',l 

222 - 21V. 500 CONFIG .4V30 L030N='L66S' 

223 - 220. 000 CCNFIS .4300 L OG 0N= * L ADC 3270 ', : 

224 " 221.000 CONFIG .4C00 ENdSLE=YES,LOGON= 
22? - 221.500 SET NSHUF=*24 

226 - 222.000 S EL H=3ISYNC 

227 - 2^3.000 SET M = m.»84 

228 - 224.000 " Lira : N r T C ON - DEFAULT COMMANDS A NO CONFIGS FOP B E P 32 ' 
22= - 2 2 s. 000 S:L ',=3 2 



230 - 225.000 

231 - 227. COO 

232 - 22?. 000 

233 - 229.000 

234 - 230.000 

235 - 231.000 

236 - 232.000 

237 - 233.000 
23* - 234.000 
23" - 235.000 

240 - 236.000 

241 - 237.000 

242 - 233.000 

243 - 23V. 000 

244 - 240.000 

245 - 241.000 

246 - 242.000 

247 - 243.000 
243 - 244.000 
24V - 245.000 

250 - 246.000 

251 - 247.000 
25? - 24S.000 

253 - 249.000 

254 - 250.000 

255 - 251.000 

256 - 252.000 

257 - 253.000 
25? - 254.000 

259 - 255.000 

260 - 256.000 

261 - 257.000 
2o2 - 25?. 000 

263 - 259.000 

264 - 250.000 
255 - 261.000 
266 - 262. COO 
2o7 - 253.000 
263 - 264.000 



SET 300TIN=0 

M:F=P.:SYS 

4 

N0DE4CN 
NOOiACVNI. : SYS 
HDLCX25 
H0LCX25.:SYS 
A SYNC 

ASYNC.:SYS 
UNITP5C 
UNITPEC. : SYS 
:SYS 

OEF LINK ."=000,. MOO 
Oc=AULT ASYNC /' 

IN"UT = yes,; 

OUTPUT = YES,; 

SALUTATION = YES, 

SPEE3 = AUTO,; 

ENA5LE = YES// 

REENAPLS = YES// 

ORCOTR = NO//' 

MAROrflRE = YES/; 

ECHOLOGON = NO/; 

LOGONTIMEOUT = 5/ 

REAOTIMEOUT = 0,; 

°ROFILS='0FLPRF' 
DEFAULT 5ISYNC ; 

INPUT = YES/; 

OUTPUT = YES// 

SPrEO = 2400/; 

REMOTE = TERMINAL 

ENAELF = YES/; 

HARDWIRE = YES/; 

CLOCKING = NO/; 

REENA?LE = YES/; 

REA3TIME0UT = 0 
C E p 4 J L T HDLCX25 ; 

INPUT = YES,; 

out'ijt = y 5 s , ; 



269 - 265.000 SPEED = AUTO,; 12HO— 15 

270 - 2O6.000 REMOTE = HOST,; 

271 - 267.000 • ENAP.LE = NO, ; 

272 - 265.000 HARDWIRE = YES,,* 

273 - 269.030 CLOCKING = NO, ; 
276 - 270. GOO REENAELE = YES,; 

275 - 271.000 RgflOTlMECUT = 0 

276 - 272.000 CONFIG .0530 L OGON= 'name , acc t,pass ' 

277 - 273.000 CONFIG .0680 L OGON= * naraa,acc t ,p as s ' 

278 - 276.000 CONFIG .0700 LOGON='pame,acct,pass' 

279 - 275.000 CONFIG .FOOO LOGON='LINK32',ENABLE=YES,REENA9LE=YES 
28C - 276.000 CONFIG . c 100 LOGON='LINK32 *,ENA 3L E= YES , R EENA3LE = YE S 

281 - 277.000 " L664 : NETCON - DEFAULT COMMANDS AND CONFIGS FOR FEP 33 " ; 

282 - 278.000 S EL N = 33 

283 - 27V. 000 SET POOTINFO 

284 - 280.000 m : C;P. :SYS 

285 - 281.000 6 

266 - 282. 000 NODE 60 vn 

22' - 2a3.C00 N 00 c A OMN . : SYS 

288 - 236.000 HDLCX25 

289 - 2*5.000 H OLC x 2 5 . : S Y S 
2*0 - 23c. OCC A 3 Y N C 

291 - 237.000 ASYNC.:SYS 

292 - 288.000 UNITREC 

2v3 - 22V. 000 UNITREC. :SYS 

296 - 290. GOC :SYS 

295 - 291.000 DEF LINK .9000, .9300 

2*6 - 292. COO DEFAULT ASYNC ; 

297 - 293.000 INPUT = YES,; 
29« - 294.000 OUT°UT = YES,; 

2ys - 2*5.000 SALUTATION' = YES,; 

300 - 296.000 SPEED = AUTC,; 

301 - 297.000 6MAUE = YES,," 
30? - 2<H.000 REENAeLE = YES,; 
303 - 299.000 DRO D D T R = NO,; 
50u - 300.000 HARDWIRE = YES,; 

305 - 301.000 ECHOLOGON = NO, ; 

306 - 302.000 LOGON T I OUT = 15,; 

307 " 303. OOC R E A DT I "IE OUT = 0,; 
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308 - 304.000 =P0=IL£='DPLPRF # 12HO-16 

30$ - 305.000 De=flULT HISYNC ; 

310 - 306.000 INPUT = YES/; 

311 - 307.000 0UTOUT = YES/; 

312 - 305.000 SPE = 0 = 2400,; 

313 - 309.000 REMOTE = TERMINAL/,* 

314 - 310.000 ENABLE = YES,; 
31 5 - 311 .000 HARDWIRE = YES/,* 

316 - 312.000 CLOCK IM 5 = NO, ; 

317 - 313.000 REENABLE = YES// 

318 - 714.000 R=10TIME0UT = 0 
310 - 315. OOC DtFAL'LT HCLCX25 ,* 

320 - 316.000 INPUT * YES,; 

321 - 317.000 OUTPUT = YES / ; 

322 - 313.000 S = EED = AUTO/ ; 

323 - 319.000 REMOTE = HOST/ ; 

324 - 320.000 ENABLE = NO, ; 

325 - 321.000 HARDWIRE = YES// 

326 - 322.000 CLOCKING = NO , / 

327 - 323.000 REEN43LE = YES// 
325 - 324.000 R E APT I MEOUT = 0 

32- - 325.000 CONFIG .0550 LC30N='nam9,aect,pass' 

330 - 326. OOG CONFIG .0580 L 0G0N= ' name ,a c c t ,p a ss * 

331 - 327. OCO CONFIG .69«0 L OGCN= ' name / acc ♦ ,o a s s ' ,H A R 0 HI R E = Y E S/ SP S F0 = 4800 / R E ADT IMF=0,LOGONTI HE =0 

332 - 32c. 000 CONFIG .9000 L0G0N= ' LINK33 A * / EN ASL E = YE S/ RE ENA3LE = YF. S 

333 - 32". 000 CONFIG .9300 L OSCN = ' L I NK73 B ' / EN AeLE* Y E S, RE E N ABL E= YE s 

334 - 350.000 " L66A :NETC0N - DEFAULT COMMANDS AND CONFIGS FOR FEP 34 " ; 
33 5 - 331 .000 S EL N = 34 

336 - 332. OOG S£T 'OCTrN^O 

33? - 333.000 m : = ;0. : sys 

33* - 334.000 4 

33v - 355.000 NOOFSOMN 

340 - "36.000 NOOEAOMN. : SYS 

341 - 337.000 HJLCX25 

342 - 33a. COO -ICLCX25. :SYS 

343 - 333.000 a SYNC 

344 - 340.000 ASYNC.:SYS 

345 - 341.000 UNIT3EC 

34* - 342.000 UNITREC. :SY3 



347 - 343. OOC :SYS 

3*3 - 344. OOC DEF LINK .3 900 /. 91 00/ . 9000, . 91 00 

349 - 345.000 OrPiULT ASYNC ; 

350 - 346. COO INPUT = YES,; 

351 - 347. OOC OUTPU T = YES// 

352 - 34S.000 SALUTATION = YES,; 

353 - 349.000 S?=ED = AUTO/; 

354 - 350.000 ENABLE = YES/; 

355 - 351 . 000 REENA3LF = YES/,' 

356 - 352.000 O^C'CTR = NO/ ; 

357 - 353.000 HAROWIRE = YES// 
35E - 354.000 ECHCLOGCN = NO/ ; 
35V - 355.000 LOGCNTI i*EOUT = 15/," 

360 - 356. 000 REACT IMEOUT = 0//' 

361 - 357.000 PROPILc='OFL?RF* 
5*2 - 35?. 000 0 £ c 4 U L T 'iSYNC ; 

363 - 35«.COO INPUT = YES/; 

364 - 360.000 OUTPUT = YES/; 

365 - 361 . OOC SPEED = 2400/,' 

366 - 362 .000 REMOTE = TERMINAL//* 

367 - 363.000 ENA3LE = YES// 
363 - 364.000 HARDWIRE = YES/; 
36' - 365.000 CLOCKING = NC/; 

370 - 366.00c REeNA'LE = YES/; 

371 - 367.000 re4dt imeout = 0 
'yes,; 

374 - 370.000 output = yes/; 

37^ - 371.000 S = EEO = 4UT0/; 

376 - 372.000 REMOTE = HOST,; 

377 - 373.000 EN4SLE = NO,; 
575 - "74.000 HARDWIRE = YES,; 
379 - 375.000 CLOCKING = NO/ / 
340 - 57c. 000 RErN4?L? = YES/; 
331 - 377. OGO READT IMEOUT = 0 

322 " 37?. 000 CCN=IG .'OOO L OGON* ' L I NK 34 A ' / E N ABL E = Y E S / RE EN A SL E = Y E S 

3a3 - 3 79.00 0 CONFIG .'100 L OGON = ' L INK 34 6 * , EN A 9 l E = Y 6 S , R E EN A8L E = YE S 

334 - 330 . OOC CON=IG .=000 LOGON= ' L I NK 34 A ' , EN 4 SL E - YE S , R E EN A BLE = Y E S 

3»> - 3 -.1 .000 C0i\' = IG .v-100 L0 J 0N='LINK3".S'/cNA5LE = YES,REENASLE=YcS 



12HO-17 



3 82.300 END 12HO-18 
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- 


0. 500 
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- 


0.510 






Define the host node number and name for NETCOM. 
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- 


0.520 








L 


- 


0.530 


! LET 




HCST_N00E = 0 


5 


- 


0.540 


! LET 




HOST~NAM£ = 'L664' 


6 


- 


0.550 


! iLOBAL 


%('HOST N005'||*$*) = *%HOST_NO0E' 


7 


- 


Q.560 


! GLO 


A L 


*C'HOST_NAME*| |'$') = '%HOST_NAME' 


3 


- 


1 .000 








- 


2.000 






Define the local FEP node number and name which the RFEP 


10 


- 


3.000 






is connected to. Define the channel(s) that is(are) 


11 


- 


3.100 






used to connect to the remote FEP. 


1 2 


- 


4.000 








1 3 


- 


5.000 


! LET 




FEP.NODE = 1 


1 4 


- 


6.00G 


! LET 




FEP_Nfl*!E = 'NO0E00O1' 


1 5 


- 


6.100 


! LET 




FEP. CHAM = *.F000* 


16 


- 


7.000 


! GLO 


4L 


XC'FEP.NODE* | | '$') = *XFEP_M0DE* 


17 


- 


3.C0C 


! GLO 


A L 


%C*F=P_NAME* | | *$*) = "%FEP_NAM£ * 


1 8 


- 


3 . 1 00 


! GLO 


AL 


S!(' = EP_CHAN*|| S') = '%Fcp_CHAN' 


1 o 


- 


9.000 






20 


- 


10.000 






Define the remote Fcp (Rcgp) noc ( e number and name. Define 


21 


- 


10.100 






the channelts) that is(are) used to connect to the local FEP 


22 




11 .000 














! LET 




FEP.NODE = 34 


24 




13." 000 


! LFT 




RFEP.NAME = 'C6FEP' 


25 


- 


13.100 


! LET 




RF=P_CHAN = '.F000' 


26 




14. coo 


! GLO 


A L 


XC'SFEP.NODE' | | '$*) = '%PFEP_N0DE* 


27 


_ 


1 5.000 


!GL0 


AL 


5! ( E?"nAME ' | | '5*) = '%PF=P~NAME' 


2' 


- 


15.100 


!GLO 


AL 


%('f = EP_CHANj'| | '$') = '%RFEP.CHAN* 


2? 




16.000 








3 0 




17.000 






Define the profile names for the link profiles at the 


31 

3? 




1 ■5.000 
19.000 






locsi snd remote ends of the links. (11 char max.) 


33 




20.000 


! L : T 




LOCAL. LINK = ' LOC A LL INK " 


54 




21 .000 


! LET 




3 E MOT E_L INK = ' R EM0T EL INK " 


35 




22.000 


! GLO SAL 


r,{ 'L0CAL.LINK' | |*$*) = *%L0CAL_LINK* 


36 






! GLO 


AL 




37 




24!o00 







33 - 25.000 !" Define the virtual circuit names for the virtual circuits 12HO-20 

39 - 26.000 !" at tha local and remote ends of the links. (11 char 

40 - 27.000 !" Not?: The remove vc are not actually generated because 

41 - 23.00C !" changing the remote vc would involve ren-ritting the 
4" - 2 a .Q0C !" diskette every time the remote vc was changed. 

43 - 30.000 !" 

44 - 31 .000 !LET LC C 3 L VC = 'L0CALVC' 

45 - 32.000 !LET REM0T5.VC = " RE MOT EVC ' 

46 - 33.000 IGL0PAL * ( ' LOC AL_ VC * | |' ? ' ) - 'XLCCAL.VC' 

47 - 34.000 ! GL05AL % ( ' R E MOT E_ VC ' | |*$ ' ) = '2REM0TE.VC* 
- 35.000 !" 

<♦« - 35.000 !" Form the names of the links from the FEP to the RFEP §nd 

50 " 37.000 !" from the R = EP to the FEP. The name is of the form 

51 - 38.000 !" LINKumnn, inhere 'mm' is the two-digit node number the 
5? " 3V.C00 !" link is from/ =ind 'nn* is the two-digit node number the 

53 - 40.000 !" link is to. 

54 - 41.000 !" 

55 - 42.000 !LET NN = '0* || FEP.NOOS 

56 - <»3.000 ! Lf T FEP.N0D5XX = $ SUBS T R ( NN, $LEN(NN>-2, 2 ) 

57 - *4.000 !L?T NN = '0' || RFEP.N00E 

53 - 45.000 !LET RFEP.N00EXX = SSU3STR ( NN, $LEN(NN)-2, 2 ) 

5« - 46.000 !LET FE°_5 = SP_LINK = 'LINK' || c EP_N0DEXX || RFEP.NOOEXX 

60 - 47.000 !L£T RCEP_P=P_LINK = 'LINK' || RFEP.NOOEXX || FEP N0DEXX 

61 - 48.000 IGLOEAL X ( ' FE P_R FE P_L IN K ' | | ' $' ) = ' %F E P.RF £ P.LINK ' 
6? - 49.000 IGLC3AL XC'RFEP FEP LINK* ( j *$*) = '%RFEP_FEP LINK' 
o3 - 50.00C !" 

64 - 51 .000 !" For-n the X.25 address for the local and remote ends of 

65 - 52.000 !" the link. The address is of the form mrannii, where 'mm' 

66 - 53;000 !" is the two-clxgit node number the address is to/ 'nn' is 

67 - 54.000 !" the two-digit node number the address is from, and 'ii' 
6« - 55.000 !" is the number of the physical link (i.e., 01, 02, etc.) 
e>9 - 56.000 !" 

70 - 57.000 !LET LOCAL. ADDRESS = cgo_M00EXX || RFEP.NOOEXX || '01' 

71 - 55.000 !LcT REMOTE ADDRESS = RF=?_N0DEXX j| FEP N00EXX || '01* 

72 - 59. 000 ! G L 0 'i 3 L J! ( ' LOC A L_ ADDR E S S ' || ' $ ' ) = '%L0C AL _ A DDR ES S ' 

73 - 60.000 IGL0B5I. %(*R£M0TE 43DRESS ' | | * J ') = * %R E MOTE ADDRESS' 



13:10 AUG 22 '35 P.Fz P_N; TCON . Z ZCLGSMK 12HO-21 

1 - 1.000 ItCHO 

2 - 4.000 ! 3 P 1 6 E L c OVER ? F E P_ NF T C 0N_ OR 1 33 L F 

3 - 7.000 !XF '=EP_NODE$' = ' * ( ' F F P_NODE ' | |* $ ' ) ' THEN XEQ R FE B _GL03 AL S 

4 - 8.000 ICOPY ME over *RFE P_NETCON 

5 - 3.000 ! !N jTCON 

6 - 9.500 deists node = HOST_NOOE$ 

7 - 9.51C define node = HOST~NODF$, name = HOST. NAMES/' type = me 
3 - 10.000 delete node = RFEP.NODES 

9 - 11.000 define node = RFEP.NOOES, name = RF£P NAMES, type = feo, control » HOST NAMES 

10 - 12.000 update 

11 - 12.500 select node = FEP_N0DE$ 

12 - 12.510 define link FEP CHANS 

13 - 12.520 config f=EP_CHAN$~; 

14 - 12.530 enable = yes, ; 

15 - M.buO lo;on = ' C EP_PPEP_LINK3', ; 

16 - 12.550 reenable = yes 

17 - 13.000 select node = RFEP.NOOES 
1« - 14.000 set bootinfo 

19 - 15.000 ":FE=. :SYS 

20 - 1s. 000 3 

21 - 17.000 NODEAOmn 

22 - 13.000 N0DEA0MN. :SYS 

23 - 1V.000 HCLCX25 

24 - 20.000 HOLCX25. :SYS 

25 - 21.000 6SYNC 

2» - 22.000 ASYNC.:SYS 

27 - 23.000 :SYS 

2S - 24.000 default ASynC ; 

23 - 25.000 brsfkreauired = no, ; 

30 - 26.000 bufsize = 256, ; 

31 - 27.000 droadtr = no, ', 

32 - 2S.000 schologon = no, ; 

33 - 2^.000 ensbla = yes, ; 

34 - 30. 000 hardwire = yes, ; 

35 - 31.000 input = yes, ! 

36 - 32.000 logontimeout = 0, ; 

37 - 33.000 output = yes, ; 



38 


- 


34, 


.000 




profile = 'DFLPPF'/ ; 


39 


- 


35. 


.000 




readt ineout = 0* ; 


40 


- 


26 , 


.ooc 




reenable = yss/ ; 


41 


- 


37, 


.000 




salutation = yes/ ; 


42 


- 


3? , 


.000 




speed = auto 


4 3 


- 


39, 


.000 


Cl9f ?Ult 


HCLCX25 ; 


44 


- 


40. 


.000 




br«?kr equired = no/ ; 


45 


- 


41 , 


.000 




clocking » no/ ; 


46 


- 


42, 


.009 




enable = yss, ; 


47 


- 


43, 


.000 




bar dm ire = no/ ; 


43 


- 


44, 


.000 




inout = yes/ ; 


43 


- 


45, 


.000 




outDut * yes/ / 


50 


- 


46, 


.000 




readtineout = 0/ / 


51 


- 


47, 


.000 




reenable = yes/ ; 


52 


- 


48. 


.000 




soeed = auto 


53 


- 


49. 


.0 00 


S S 1 9 C t 


hendler = flSYNC 


54 


- 


50, 


.oco 


3€ t 


PCVC5BYTSI2 = 16334 


35 


- 


51 , 


.000 


sat 


NSHUF = 600 


56 


- 


52. 


.000 


define 


link RFEP.CHANS 


57 


- 


53, 


,000 


conf ig 


R e £P_CHAN$ ; 


3 J 


- 


53. 


.010 




enable = yes/ ; 


5° 


- 


53, 


.020 




logon = *RFEP_F50_LINX$' 


oO 




53, 


.030 




reenable = yes 


61 




57, 


.ooc 


and 




65 




58. 


.000 


! =00 




0? 




5v. 


,000 


! Xr J 


*PFEP_NETC0M 


64 




60, 


• OOC 


! OONT 




65 




61 , 


.000 




.X SF:O_NETC0NI_0"?IB9Lc 


66 






.0 00 


! DIR 





12HO-22 
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1 - 1 .000 icCrlO 

2 " 2. ODD lOPnsLc OVEP RFEP_SUPER_0RI33LE 

? - 3.000 !H= '==0. NODES' = '%('F=P_MOOE' | | '$*) * THEN XEQ RFEP.GL034LS 

4 - 4.000 !CO»Y ME over *RFEP_SUPER 

5 - 5.000 ! ISU'EP 
o - o.OOO " 

7 - 7.000 " Profile for local end of links 

8 - s.OOO " 

9 - 9.000 renove profile L0C4L.LIMKS 

10 - 10.000 crerte profile LOCAL_LINK$ link 

11 - 11 .000 circuits = 10 

1 2 - 12. 000 default packet size = 1024 

13 - 13.000 default response timer = 0 

14 - 14.030 default window = 7 

15 - 15.000 frr.re = 1024 

16 - 1O.000 mod 3 = DTE 

17 - 17.000 retransmission = 10 

12 - 18.000 tireout = 3 
1» - 19. G00 window = 7 

20 - 20.000 end 

21 - 21.000 " 

22 - 22.000 " Profile for RFEP end of links 

23 - 23.000 " 

24 - 24.000 rei\cv? pro+ile REMOTE. LINKS 

25 - 25.000 crs?t» profile REMOTF.UNKS link 

26 - 2o.?0C circuits = 10 

27 - 27. 000 detc-ul* packet size = 1024 
2« - 2s.j00 default response timer = 0 
2° - 29.000 default window = 7 

30 - 30.000 frame = 10?4 

31 " 31 .000 mod? = DC E 

32 - i'.OOO retr?nsmi ssion = 10 

33 - 33.000 tiisout = 7 

34 - 34. 000 wind cu = 7 

35 - 35.000 end 

36 - 36.000 " 

37 - 37.000 " Profile for local end of virtual circuit 



1 ) •) 



33 - 38.000 •• 12HO-24 

3? " 39.000 relieve profile LOCflL.VCS 

40 - 40.000 cre=it? profile L0CAL_VC$ virtual circuit 

41 - 41 .000 clslays = 2 

42 - 42.030 nr.xvircir = 6 

43 - 4?. 030 minvircir = 1 

44 - 44.000 receive size = 1024 

45 - 45 .030 receive uiindoui = 7 

46 - 46.000 respond to complete = yes 

47 - 47.000 response delay = 2 
43 - 4?. 000 rssoonss timer = 0 
49- 49.000 retrys=3 

50 - 50.000 send size = 1024 

51 - 51 . 000 send window = 7 

52 - 52.000 timeout = 3 

53 - 53.000 type = primary 

54 - 54. C00 end 

55 - 55.000 " 

56 - 56.000 " Profile for remote end of virtual circuit 

57 - 57.000 " 

53 - 5?. 000 renove profile REMOTE VCI 

5« - 59.000 create profile REMOTE.VCS virtual circuit 

60 - 60.000 relays = 2 

o 1 - 5 1 . 0 G 0 maxvircir = 6 

o2 - 62.000 ninvircir = 1 

63 - 63.000 receive size = 1024 

64 - 64.000 receive tuindom = 7 

65 - 65.000 respond to complete = yes 
56 - 60.OOO response d°l?y = 2 

67 - 67.000 response timer = 0 

65 - 06.OOO retrys = 0 

6' - 59.000 send size = 1024 

73 - 70.000 send window = 7 

71 - 7 1.00C tinsout = 3 

72 - 72.030 tyos = secondary 

73 - 73.000 snci 

74 - 74.000 " 

75 - 75.000 " Links for local end of link to RFEP ME S 

76 - 76.000 " 



") ) :> 



77 - 77.000 renova link F=P_PP:P_LINK$ 12H0-25 

78 - 73.000 crafts link FEP.R FE P^L INK S 

79 - 79.000 address = L0C4L_AD0RESS$ 
(SO - dO.OOO profile = LOCAl.LINKS 

61 - 61.00C ?nc! 

3? - 32.000 " 

83 - 33.000 " Links for remote end of link to RF5P NAMES 

84 - 34.000 " 

85 - 35.000 renove link R F E P . FE P _L INK $ 
36 - 86.000 cr aa t9 link SFEP_ = E D ~LINK$ 
<5 7 - 67.000 address = REMOTE^AOORESSS 

88 - 33.000 profile = REMOTE~LINK$ 

89 - 69.000 end 

90 - «0.000 " 

91 - 91.000 " Virtual circuits for local end of link 

92 - 5*2.000 " 

93 - 93.000 renove virtual circuit 1 for link = E p. RF EP.L INK $ 

94 - 94.000 craft? virtual circuit 1 for link PEP_RFEP_L INK $ 

95 - 95.000 address = R c MOT E_ ADD* ES S f 
95 - 96.000 destination = RFEP NAMES 
V7 - 97.0JG profile = LOCAL.VCt 

9* - 9 8.000 end 

93 - 93. 500 create virtual circuit 2 for link F E P_ RFE P_L INK $ 

100 - 93.510 address = 5 E MOT E _ ACD R E SS * 

101 - 93.520 destination = PFEP_NAMF$ 

102 - >3.53C profile = LCCAL.VCS 

103 - VS. "40 ?n;l 

104 - 99. 000 " 

105 - 100.000 " Virtual circuits for remote end of link 

106 - 101.000 " 

1 07 - 102.000 " rjnovs virtual circuit 1 for link R F E P.FEP.L INK % 

10? - 103.000 " create virtual circuit 1 for link R * E P. F E p.LINKS 

109 - 10^.000 " address = L?CAL_AQI3RESS? 

110 - 105.000 " destination = FEP.NAMES 

111 - 106.000 " profile = REMOTE VCS 

112 - 107.000 " end 

113 - 1 0S. 000 erd 

114 - 109.000 ! 303 

1 15 - 1 10.000 !X=; SUPER 



116 - 111.000 ! DO M T DPI?3L5 12H0-26 

117 - 112.000 »=iaeiRo.x rp;= super dribble 

118 - 113. OOG IOIR R 



FEP = SINPUT ( 
pep - 

FEP = 'CVFEP' 
FEP = 'C C FP' 

'CP6FEP 



«FEP 



SINPUT 
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2.000 

3.000 

4.500 

e.000 

9.000 
10.000 
11 .000 
12.000 
13.000 
14.000 !F=P.EN3: 
1 6.000 ! R F E P : 
17.000 !LET 
13.000 
19.000 
20.000 
21 .000 
22.000 !RF£P_EN: 
45.000 J DP I V E 1 : 
45.000 !3UT=>UT 
47.000 !LET 
43.00' 
4V.000 !0RIVE1_ 
50.000 !3fiTCH:~ 
51.000 !LET 
52.000 ! R ATCH 
53.000 
54.000 
66.000 
67.000 



'Which FEP is diskette to be built ON 

THEN GOTO END 

THEN GOTO FEP.END 

THEN GOTO Fe»_ENO 

THEN GOTO FEP 



(DVFEP|CFEP|CP6FEP>: 



'Which PFEP is diskette to be built FOR CDVFEP| CRFEP | CP6FEP) : 
kpsh = - - THEN GOTO END 

R=EP = *DVF=d' THEN GOTO PFEP END 

RFE" = 'CRFEP' THEN GOTO RFEP~END 

PFEP " = 'CP6F5P' THEN GOTO RFE P 



'out the nam diskette for XR = EP in drive 1.* 

ANS = SINPUT ( 'Enter GO u/hen diskette installed: 

AN S "= 'GO* THEN GOTO DRIVE1 



.DISKETTE' 

X ( 'NAME ' | | '$*) = * XNA M E " , 
X ( * FEP * | | ' $' ) = *XFEP*/ , 
XCS^P' ||'?') = 'XRFEP' 

THEN ECHO 



13:10 AUG 22 '35, J:RF;P_diSKSTTE.ZZGLGSMK 12HO-28 

1 - 1 .000 (DEFAULT NflM?S=K=E?_OISKETTE 

2 " 2.000 .'OSFiULT WS NS = PV » SI G? / 0 EF 5 9 $=0 : 00/ SCHED$=RERUN 

3 " 3.000 ! 0E FAULT TTMES=1:00/ MEM3=64, FP00LS?=31 

4 - 4.000 !JCS N4M==NttM=J, WSN=WSNt/ 0EFER=(0EFER$), SCHEOT 

5 - 5.000 IRES TIME=TIMES, MEM=MEM$ 

6 - t.000 !LIiIT FPOOLS=FPOOLS$ 

7 - 7. 000 !M Job to build RFEP diskatte for RFCS. 

5 - 3.000 !* Diskette mill be built on drive 1 of FSP$. 

9 - 13. COO ! PIGETTE 

10 - 14.000 use t?p FE°t 

11 - 15.000 time 

1 2 - 16.000 >uild RFEP$ on tap FE<>$ drive 1 

13 - 17.000 tins 

14 - V.. 000 list fee F ?P? drive 1 
1? - 1«.000 and 

16 - 20.000 !cooy ns> ovjr *«i9S3 

17 - 21.000 TO:"? 

1-3 - 22.000 SU6JECT:N£«ES completad 

19 - 23.000 FCOPY:NO 

20 - 24.00C R*:MC 

21 - 25.000 !T0D 

22 - ct .000 ! SiNO *n.o 53 



LAB OVERVIEW 

Lob formats generally take the form of: 
Scenario 

- where scenario Is as real— to— life as we 
make it 

Discussion/hints 

- where we are as obscure as possible 
Problem 

- where we really let you have it 



LAB 1 
ASSIGNMENT 



UB #1 [SUPER] 



SCENARIO: 

- You have been asked to make a special lino 
printer form for a room full of schmucks. 
The schmucks are divided into groups of two, 
known as schmucklets. Each schmucklet has a 
different logon account and would like their 
output to come out uniquely identified. 

What the heck can you do? 



LAB #1 [SUPER] 



DISCUSSION: 

- You don't want to have to change the forms man 
every few minutes. [Hint: What's a pseudo form?] 

- You'd like to be able to use the same form for 
all schmucklets, but uniquely identify each 
schmucklet's output. [Hint: What's a WSN?] 



LAB #1 [SUPER] 



DISCUSSION: 

- You don't want to confuse the poor development 
programmers who tear listings off the damn 
printers? [Hint: What's a DFORM? For which 
WSN?] 

- You'd like the listings to be identifiable by 

the members of the schmucklet [schmucklettes]. 
How can that be done? [Hint: What's a 
BANNERTEXT?] 



LAB #1 [SUPER] 



PROBLEM: 

Create a form named U40XXX, where XXX is your 
group number. It must look a lot like the 
standard form at your WOO, and must be a pseudo 
form for that form. Test the form, using LDEV. 
When you're done, the instructor will continue 
with a group exercise designed to make a single 
form the permanent default for all schmucklets 
for the rest of the sessions. 



LAB 1 
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1 - ! SUPER 

2 - R FORM STDINT 

3 - CR PSEUDO STDINT FOR STDLP 

4 - BANNER 

5 - REPEATS = 2 

6 - ENTRY = 45, 1, 0, 1, 0, 1, 0, 0 

7 - %$ 

8 - Entry = 01, 001, 0, 1, 0, 1, 0, 0 

9 - %DATE 

10 - Entry = 01, 010, 0, 1, 0, 1, 0, 0 

11 - %TIME 

12 - Entry = 01, 016, 0, 1, 0, 1, 0, 0 

13 - %ACCN 

14 - Entry = 01, 025, 0, 1, 0, 1, 0, 0 

15 - %SYSID 

16 - Entry =01, 031, 0, 1, 0, 1, 0, 0 

17 - . 

18 - Entry = 01, 032, 0, 1, 0, 1, 0, 0 

19 - %SUBFILE 

20 - Entry = 01, 039, 0, 1, 0, 1, 0, 0 

21 - ( 

22 - Entry = 01, 040, 0, 1, 0, 1, 0, 0 

23 - %J0BNAME 

24 - Entry =01, 071, 0, 1, 0, 1, 0, 0 

26 - Entry = 01, 074, 0, 1, 0, 1, 0, 0 

27 - W00= 

28 - Entry = 01, 078, 0, 1, 0, 1, 0, 0 

29 - %W00 

30 - Entry = 01, 088, 0, 1, 0, 1, 0, 0 

31 - V0D=@ 

32 - Entry = 01, 093, 0, 1, 0, 1, 0, 0 

33 - %W0D 

34 - Entry = 01, 103, 0, 1, 0, 1, 0, 0 

35 - CP-6/ 

36 - Entry = 01, 108, 0, 1, 0, 1, 0, 0 

37 - %VERSI0N 

36 - ENTRY = 4, 1, 0, 1, 0, 1, 0, 0 

39 - Schmucklet # 1 is 

40 - ENTRY = 4, 19, 0, 1, 0, 1, 0, 0 

41 - %B ANNERTEXT 1 

42 - ENTRY = 5, 1, 0, 1, 0, 1, 0, 0 

43 - Schmucklet # 2 is 

44 - ENTRY = 5, 19, 0, 1, 0, 1, 0, 0 

45 - %BANNERTEXT2 

46 - ENTRY = 10, 16, 2, 3, 2 

47 - CP-6 

48 - ENTRY =24, 10, 1, 2, 1 

49 - Internals 

50 - ENTRY = 33, 1, 1, 2, 1, 1, 0, 0 

51 - %BANNERTEXT3 

52 - END 



END 
END 

! " 

! SUPER 

CR WSN INTERNAL 
DEVICE=LP@UPSTAIRS 
DFORM LP STDINT 
END 

MOD ZZINT? 
WSN=INTERNAL 



END 



LAB 2 
ASSIGNMENT 



LAB #2 [SHARED LIBRARIES] 



SCENARIO: 

- The head of the computer science department 
just read about shared libraries in the CP-6 
System Support manual. He's absolutely sure 
that the computer science graphics class can 
benefit from your writing a shared library for 
them. Who are you to argue? As an exercise, 
you decide to write your own simple shared 
library to learn the "ins and outs" of 
shared library creation. 



LAB #2 [SHARED LIBRARIES] 



PROBLEM: 

The rest of the specifics of the problem are 
described in detail in the handouts. Bonus 
points are awarded for stealing the System 
Support Manual that the head of the computer 
science department was reading. 
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U40 (CP-6 INTERNALS) CLASS 
SHARED LIBRARIES LAB 

1) Make a subroutine library. The library will have 5 entry points: 

a) OPEN_DCB - this subroutine accepts a DCB number from the calling 
program, and opens the DCB to the timesharing terminal. 

b) WRITE_ALINE - this subroutine accepts a BUFFER and a SIZE and 
writes the SIZE number of bytes from the BUFFER through the DCB 
previously passed to the OPEN_DCB subroutine. 

c) READ_ALINE - this subroutine accepts a BUFFER and a maximum SIZE 
from the calling program and performs a read through the DCB opened 
in OPEN_DCB. The number of bytes read is returned through the SIZE 
parameter passed to the routine. 

d) CLOSE_DCB - closes the DCB opened by OPENJDCB. 

e) EXIT_ALL - performs an M$EXIT. 



HINT: This library is best written in PL-6. 

HINT: See the DCBNUM function in the PL-6 reference manual. 

HINT: You must get the DCB's number from the calling program. 

HINT: Your lab instructor has included a listing of his solution to 
the problem in this handout. 

HINT: Save the object unit(s) from this exercise, as you'll need 
them below. 



2) Use LEMUR to build an UNSHARED, SUBROUTINE library from the 
object unit(S) created from exercise 1. 

The UNSHARED version of your library will be named: 

:LIB_U40nn 

where : 

nn is your group number 



HINT: See the LEMUR and LINK sections of the PROGRAMMER reference 
manual . , 



3) Write a MAIN program (in PL-6) that uses this library- Link your 
MAIN program with the UNSHARED version of the library. Does it 
check out okay? 

HINT: This isn't even a shared library exercise. Use the standard 
object unit linking commands from the PROGRAMMER REFERENCE manual. 

HINT: Save the "MAIN" program OU from this exercise. Use a star file 
for the run unit. 



4) Use LINK to create a shareable version of the library. Place the 
shareable version of the library in a file called: 

: SHARED_U40nn 

where 

nn is your group number 



HINT: See the LINK section of the PROGRAMMERS REFERENCE MANUAL. 

HINT: See your Lab Instructor's solution to the problem (in the 
handout ) 

HINT: Ask yourself why the person who wrote the Lab Instructor's 
example extracted X66_AUTO_0 from : LIB_SYSTEM . : SYS and then used 
that in the link. What is it anyway? Maybe the explanation of what's 
in : LIBRARY in the back of the Monitor Services Reference Manual will 
tell you. 



5) Use SPIDER to install the shareable version of the library on the 
running machine. Use the same name to install the library as it is 
already named. 

_ HINT: See the instructor's handout to see how he did it. 

HINT: Ask yourself why he deletes it before installing it. 

HINT: Don't use SPIDER to mess with anything else on the system. 
The Lab Instructor used to teach martial arts and small arms 
weaponry for the CIA. 



6) Link your MAIN program OU (from exercise 3) with the shared 
library you just created. Run it. SAVE THE RUN UNIT FROM THIS 
EXERCISE FOR LATER. YOU MAY NOT RELINK THIS RUN UNIT ONCE IT HAS 
RUN CORRECTLY. 

HINT: You may, once again, find ♦.he Lab Instructor's example handy. 
HINT: Ask questions about anything you don't understand. 



HINT: Why are you linking with the SH option? The UNSAT option? 



7) Use the MOD command (of PCL) to change the name of your library 
to 

: SHARED_U40nn_OLD . 

HINT: See MODIFY under PCL in the PROGRAMMER REFERENCE MANUAL. 



8) Modify your subroutine library. You have determined that you 
don't like the prompt character issued by the system. You have also 
decided that you need your EXIT_ALL routine to display the fact that 
it indeed has exited. You decide the way to do this is to write a 
' GOOM-BYE ' message to the terminal. 

Change your library accordingly. Recreate the OU. Check out the 
new, unshared version of the library. 

HINT: See M$ PROMPT. 

HINT: What DCBs can a shared library reference? 



9) Relink the shared version of your library as 
: SHARED_U40nn 

Remember that you must keep the "transfer vector" intact. How can 
you do this? 

HINT: See the VECTOR option of LINK, PROGRAMMER REFERENCE MANUAL. 

HINT: Remember that you saved your old library as 
: SHARED_U40nn_OLD . 



10) Replace the old library (in memory) with the new library. 
HINT: Use SPIDER. 



11) Re-run the run unit you created in exercise 6. YOU MAY NOT 
RELINK. THIS RUN UNIT. Does it work correctly? Why? Why not? 
Aren't I frustrating? 

HINT: Transfer vectors are real important. 
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1 - !JOB WSN=LOCAL 

2 - IRES MEM=300 , TIME=2 

3 - !PL6 LAB21_SI6 OVER LAB21_OU6(LS , SR( .: LIBRARY) , SCHEMA) 

4 - ! LEMUR 

5 - COPY : LIB_ SYSTEM . : SYS ( X66_AUTO_0 ) INTO *LIB 

6 - END 

7 - ILINK LAB21_0U6,*LIB ; 

8 - OVER : SHARED_INT ( MAP ( VALUE . NAME) , NODEBUG , NOSH , SLIB , REP=0 , ; 

9 - VECTOR(ENTRIES(OPEN_DCB,WRITE_ALINE,READ_ALINE,CLOSE_DCB,EXIT_ALL) , ; 

10 - REMOVE_E, REMOVERS, DATA=247)) 

11 - !PL6 LAB2M_SI6 OVER LAB2M_OU6(LS , SR( . : LIBRARY) , SCHEMA) 

12 - ILINK LAB2M_OU6 OVER LAB2M_RU( SHAREL= : SHARED_INT . ZZINT, ; 
13- UNSAT= : LIB_ SYSTEM . :SYS) 

14 - ! SPIDER 

15 - DEL : SHARED_INT 

16 - IN : SHARED_INT , LIB FROM : SHARED_INT . ZZINT 

17 - L :SHARED_INT 

18 - END 

19 - ! LAB2M_RU . 

20 - TUNA 

21 - !C LAB2_JCL TO LP(K) 



LAB 2 



17:41 AUG 29 '85 LAB21_SI6 



2 



/*M* JJ'S SHARED LIBRARY (PHASE 1) */ 

/.J***,,*** *»*«*«*»*»*» *****»****»*»,: 




3 - *T* 

4 - *T* COPYRIGHT, (C) HONEYV\€LL INFORMATION SYSTEMS INC., 198 



7 - /*X* DMR , PLM=5 , I ND=5 , CT I =5 , SD I =5 ,MCL = 10 ,CS I =0 , EC I =0 */ 

8 - 

9 - %SET L I STSUB= ' 1 ' B ; 

10 - 

11 - OPEN_DCB: PROC (DCBNO); 

12 - 

13 - DCL DCBNO SB I N \AORD ; 

14 - 

15 - % INCLUDE CP_6; 



5 
6 




16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



DCL G LOB A L_DCB NO SB I N WORD STATIC SYMDEF ; 



GLOBAL DATA DEFINITIONS *l 



G LOB A L_DCB NO = DCBNO; 



OPEN_DCBNO.V.DCB# = GLOBAL_DCBNO; 



CALL M$OPEN (OPEN_DCBNO) 
WHENALTRETURN 

DO; 

CALL M$MERC; 



%FPT_OPEN (FPTN=OPEN_DCBNO, 



CTG=YES , 
RES= ' ME ' , 
D I SP=NAMED) ; 



*/ 



/* 



BEGIN PROCEDURE 



38 
39 
40 
41 



RETURN ; 



END; 



CALL M$EXIT; 



/ * DO IF ALTRETURN */ 



42 - 

43 - END OPEN_DCB; 

44 - %EOD; 

45 - %SET L I STSUB = ' 1 ' B ; 

46 - 

47 - READ_AL I NE : PROC (BUF_, SIZE_); 

48 - 

49 - DCL BUF_ CHAR ( 132) ; 

50 - 

51 - DCL SIZE_ SBIN WORD; 

52 - 

53 - DCL 1 BUFFER_ BASED, 

54 - 2 BUFFER_CHARS_ CHAR(SIZE_) CALIGNED; 



58 - 

59 - /* GLOBAL REFERENCES */ 

60 - 

61 - DCL GLOBAL_DCBNO SBIN WORD SYMREF ; 

62 - 

63 - /* LOCAL FPTS */ 

64 - 

65 - %FPT_READ ( FPTN=READ_AL I NE_ , 

66 - WAIT=YES) ; 



55 
56 
57 



% INCLUDE CP_6; 



67 
68 
69 
70 
71 
72 
73 
74 
75 
76 



READ_AL I NE_ . BUF_ . BUF $ = ADDR { BUF_ ) ; 



READ_ALINE_.V.DCB# - GLOBAL_DCBNO; 



%F$DCB; 



*/ 



/* 



BEGIN PROCEDURE 



77 - 

78 - READ_AL I NE_ . BUF_ . BCXJND = SIZE_ - 1; 

79 - 

80 - IF SIZE_ <- 0 

81 - THEN 

82 - DO; 

83 - READ_AL.INE_.BUF_ = VECTOR (NIL); 

84 - ADDR ( BUF_) -> BUFFER_. BUFFER_CHARS_ - ' '; 

85 - END; /* DO IF SIZE <= 0 */ 

86 - 

87 - CALL M$READ ( READ_AL I NE_) 

88 - WHENALTRETURN 

89 - DO; 

90 - CALL MSMERC; 

91 - CALL M$EXIT; 

92 - END; / * DO I F ALTRETURN */ 

93 - 

94 - IF SIZE_ <= 0 

95 - THEN 

96 - SIZE_ = 0; 

97 - ELSE 

98 - SIZE_ = DCBADDR ( GLOBAL_DCBNO ) -> F$DCB.ARS#; 

100 - RETURN; 

101 - 



102 - END READ_AL I NE ; 

103 - %EOD; 

104 - 

105 - %SET LISTSUB=' 1 ' B ; 

106 - 

107 - WR I TE_AL I NE : PROC (BUF_, SIZE_); 

108 - 

109 - DCL BUF_ CHAR (132) ; 

110 - 

111 - DCL S I ZE_ SB I N WORD ; 

112 - 

113 - /* GLOBAL REFERENCES */ 

114 - 

115 - DCL GLOBAL_DCBNO SB I N WORD SYMREF ; 



116 - 

117 - % INCLUDE CP_6; 

118 - 

119 - %FPTJAfllTE (FPTN-Vtf!ITE_ALINE_, 

120 - v\A IT-YES) ; 

121 - 

122 - /* 

123 - BEGIN PROCEDURE 

124 - */ 

125 - 

126 - IF SIZE_ <= 0 

127 - THEN 

128 - \Af!ITE_ALINE_.BUF_ = VECTOR ( N I L ) ; 

129 - ELSE 

130 - DO; 

131 - VtftlTE_ALINE_.BUF_.BOUND = S I ZE_ - 1; 

132 - WRITE_ALINE_.BUF_.BUF$ = ADDR ( BUF_) ; 

133 - END; / * DO I F S I ZE > ( 

134 - 

135 - W3ITE_ALINE_.V.DCB# = GLOBAL_DCBNO ; 



140 - CALL M$MERC; 

141 - CALL M$EXIT; 

142 - END; / * DO I F ALTRETURN 

143 - 

144 - RETURN; 

145 - END \Afi I TE_AL I NE ; 

146 - %EOD; 

147 - 

148 - %SET LISTSUB=' 1 'B; 

149 - 

150 - CLOSE_DCB: PROC; 

151 - 

152 - /* GLOBAL REFERENCES »/ 

153 - 

154 - DCL GLOBAL_DCBNO SB I N \AORD SYMREF ; 



155 - 

156 - % INCLUDE CP_6; 

157 - 

158 - %FPT_CLOSE ( FPTN=CLOSE_DCB_, 

159 - DISP=SAVE) ; 



BEGIN PROCEDURE 

*/ 

CLOSE_DCB_.V.DCB# = GLOBAL_DCBNO ; 

CALL M$CLOSE (CLOSE_DCB_) 
WHENALTRETURN 

DO; 

CALL M$MERC; 
CALL M$EXIT; 

END; /* DO IF ALTRETURN : 



175 - 

176 - %EOD; 

177 - 

178 - EX I T_ALL : PROC; 

179 - 

180 - % INCLUDE CP_6; 

181 - 

182 - CALL M$EXIT; 
184 - END EX I T_ALL ; 
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1 - /*M* JJ'S SHARED LIBRARY TEST PROGRAM */ 

2 - /*T*** ************************************************ ******** 

3 - *T* * 

4 - *T* COPYRIGHT, (C) HONEYvACLL INFORMATION SYSTEMS INC., 1981 * 

5 - *T* * 

7 - /*X* DMR , PLM=5 , I ND=5 , CT I =5 , SD I =5 , MCL= 1 0 , CS I =0 , EC I =0 */ 

8 - 

9 - 

10 - %SET L I STSUB= ' 1 ' B ; 

11 - 

12 - 

13 - MYPROG: PROC MAIN; 

14 - 

15 - 

16 - /* LIBRARY ENTRY POINTS */ 

17 - 

18 - DCL OPEN_DCB ENTRY! 1 ) ; 

19 - DCL READ_AL I NE ENTRY! 2 ) ; 

20 - DCL \A«ITE_ALINE ENTRY ( 2 ) ; 

21 - DCL CLOSE_DCB ENTRY; 

22 - DCL EX I T_ALL ENTRY; 

23 - 

24 - DCL BUFFER_ CHAR (120) STATIC; 

25 - DCL BUFSIZ_ SB I N \AORD STATIC I N I T( S I ZEC(BUFFER_) ) ; 

26 - 

27 - DCL MSMINE DCB ; 

28 - 

29 - CALL OPEN_DCB (DCBNUM(M$M I NE ) ) ; 

30 - 

31 - CALL READ_AL I NE ( BUFFER_, BUFS I Z_) ; 

32 - 

33 - CALL \M?iTE_ALINE(BUFFER_, BUFSIZ_); 

34 - 

35 - CALL CLOSE_DCB; 

36 - 

37 - CALL EX I T_ALL ; 



38 - 

39 - END MYPROG; 

40 - 



LAB 3 



ANLZ, STATS, CONTROL 



• Look at some dumps 

• Look at running system 

• Get a feel for problem causes 

• If time allows, performance work 



SOME USEFUL SEGIDS (AND OFFSETS) 



LS16 FOR x - Auto for Mon. for user 
LS33 - Mon auto 

LS37-X500 FOR x - bottom SS frame of User SS 

(.600 if CP running) 

LS35-X560 - bottom SS frame of Mon SS 

LS4 using x - Auto of user 

(xjlCP,IDB,ASLi for other domains) 
$LS30 for x - User page table 
$LS31 - Mon page table 

$LS1 usi x - JIT 
$LS2 usi/for x - file buffers 
$LS3 usi/for x - ROS 
$LS83 - TIGR data 



SOME USEFUL COMMANDS 



REC - Recovery buffer 

SCH - Scheduler Queues 

USRT - User Tables 

CPUS - List of CPUs 

EVB - Evenf Buffer (Sched Ev & CPU Connect) 
JIT, DCB, TCB (domain), AUTO 

SSF - Safe Store frame 

SYM - use RU for symbols. 



:, GOD, ALIB RET - Use Delta, go to it and return 
WHO HAS x OPEN 
I0CACHE 



SOME DUMPA WE WILL LOOK AT 



• A100 - UDE-501 

• A084 - HFC-533 

• A112-CPC-700 



SOME DUMPS YOU WILL LOOK AT 



• A071 - UDE-501 

• e013 - UDE-501 

• e015 - UDE-501 

• A185-QXA-751 
. i024 -HFC-530 



POSSIBLE OTHER EXERCISES 



• Find out what a user is doing 

• Attack an inefficient program 

• Talk about system support section 



LAB 4 
ASSIGNMENT 
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Task: Write a simple version of OUTSYM. 
You have the following options: 

1) Do both programs. Work on #1 first, in case you run out of time. 

2) Do only the AU program. Use the provided program to generate 
file input to your comgroup. 

3) Do only the terminal 10 portion of the AU program by adding 
code to the provided partial solution. 

PROGRAM #1 - The AU. 

The AU must be able to perform the following tasks. 

1) Accept DCB connects. 

2) Once a DCB user connects, open a file called PRINT : sname where 
sname is the station name of the DCB user. Send all records 
recieved from this station to that file. Since you don't know 
how many DCB stations will connect at once, you'd better use 
MSGETDCB. You'd also better add something to PRINT:sname to 
avoid collisions if the same user sends you more than one file. 

3) When the DCB station closes, close the matching file. You'd 
better stick the file name in a table, however, you'll need it 
later. Make sure you write all the records from this DCB to 
the PRINT: file before you close it. 

4) Accept terminal connects. 

5) If a terminal is connected, and a PRINT: sname file is available, 
then open the PRINT: file and send the contents to the terminal 
station. Delete the print file when done. 

6) Think up a way to get the terminal stations logged off on request. 



Want some bonus points? Do something the solution doesn't! Add a 
simulated operator's console using a second comgroup. Add the 
following capability to the AU. 

V) Have it open a second comgroup. This comgroup should allow 
only terminal connects. 

8) Printing of files thru the first comgroup will be controlled 
via commands recieved from a terminal connected to the second 
comgroup. Implement the following commands: 

WHAT - When received from a terminal device connected to 
to the command comgroup causes a list of PRINT : files 



waiting to be printed. 

PRINT fid - Will print fid if a print device is connected 
to the first comgroup, else prints 'No Way' on the 
command terminal. 

OFF - Does about what you'd expect. 



Use no-wait 10 to accomplish this task. An ASYNC routine is provided 
for you if you don't want to develop your own. See INT_CGLAB_ASYNC . 
Get steps 1-3 running before you go on to 4-6. If you choose not 
to do steps 1-3, the partial solution is in INT_CGLAB_PART_SI1 . 

PROGRAM #2 - The COPY program. 

1) Open to the comgroup. Use your sysid as your station name. 

2) Write LO type output to the comgroup. 

3) Close the comgroup. 

If you chose not to do this program, the solution is in 
INT_CGLAB_SI2 . The run unit is INT_CGLAB_2. 



LIST of available programs in LJSHOST: 
INT_CGEX_SI1 

INT_CGEX_SI2 example programs 



INT_CGLAB_SI1 
INT_CGLAB_SI2 



program #1 
program #2 



INT_CGLAB_ASYNC 



async routine for no-wait 10 



INT_CGLAB_PART_SI1 partial solution of program #2 
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INTERNALS COMGROUP LAB 

Purpose: to learn to manipulate CP6 comgroups 

Your group will be provided with sample programs which 
illustrate some comgroup programming techniques. These 
programs involve a comgroup administrative user that reads 
messages from a terminal station and sends the messages to a 
DCB station, where the messages are written back to the 
terminal station and displayed. 

The example source files are INT_CGEX_SI1 and INT_CGEX_SI2 
in account LJSHOST OL66B. 



Some comgroup X account tools that you might find useful are: 
CCG 
LARK 
CGU 

It is necessary to create device logons for comgroup terminal 
stations. The following is an example of how to create a device 
logon : 

! SUPER 

CMD*CRE DEV LJS1HOST 

OPT*USE=CG 

0PT*PROFILE=VTP7205 

OPT*COMGROUP=CG/INTERNALS_CG . LJSHOST 

OPT*NOCG=INFORM 

OPT*PASS=CG 

OPT* END 

CMD*END 
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1 - IJOB NAME=INT_CGEX_CRU,V\£N=UPSTAIRS 

2 - ! RESOURCE T IME=3 ,MEM=256 

3 - !PL6 INT_CGEX_SI1 OVER * I NT_CGEX_OU1 , I NT_CGEX_LS1 

4 - ILINK * INT_CGEX_OU1 OVER INT_CGEX_1 

5 - IPL6 INT_CGEX_SI2 OVER * I NT_CGEX_OU2 , I NT_CGEX_LS2 

6 - ILINK * I NT_CGEX_OU2 OVER INT_CGEX_2 

7 - !C INT_CGEX_LS1 TO LP 

8 - !C INT_CGEX_LS2 TO LP 
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1 - /*M* INT_CGEX_SI1 internals class comgroup example - SI1 of 2 */ 

2 - ADM I N I STRAT I VE_USER : PROC MAIN ; 

3 - 

4 - /* 

5 - NAME: ADM I N I STRAT I VE_USER 

6 - 

7 - PURPOSE: Provides a comgroup AU that reads messages from a terminal station 

8 - and writes those messages to a DCB station who sends the messages 

9 - back to the terminal station as 'ECHO: message'. 

10 - 

11 - DESCRIPTION: This AU is run from online. It opens (creates) a comgroup and 

12 - modifies it to fit this application via M$CGCTL . It then waits 

13 - for the DCB station and the terminal station to connect to the 

14 - comgroup. When both stations have connected, the AU wr i tes a 

15 _ "logged on" notification message to the terminal station and his 

16 - own terminal and also sends a message to the DCB station informing 

17 - him of the STATION name of the terminal station. The AU then reads 

18 - messages from the terminal station and writes them to the DCB 

19 - station. If the message 'OFF ' is received from the terminal 

20 - station, this is sent to the DCB station (not echoed). The DCB 

21 - station recognizes this as a signal to close its station and exit. 

22 - The AU then sends a "logged off" message to the terminal station 

23 - and the AU's terminal, disconnects the terminal station, and exits. 

24 - If break is typed at the AU's terminal, the AU tells the DCB 

25 - station to close and exit by sending the message 'AU says goodbye'. 

26 - The AU then sends the "logged off" message to the terminal station 

27 - and disconnects the terminal station. The AU then exits. 

28 - */ 

29 - 

30 - 

31 - % INCLUDE CP_6 ; 

32 - % INCLUDE CP_6_SUBS ; 



33 - 

34 - %B$CGAURD ; 

35 - 

36 - %EQU_CG ; 

37 - 



38 




7EQU 


AU MESSAGE 


' *AUFV 

AUEV ; 


,q 










40 




DCL 




CHAR l o / STAT I C 


41 




□ri 


FLAGS 


STATIC SYMDEF , 


42 






2 DCB CON 


BIT ( 1 ) UNAL INI" 








2 TERM CON 


BIT ( 1 ) UNAL INI" 


44 






2 AU BREAK 


B I T ( 1 ) UNAL I N I " 








2 TERM_LOGOFF 


BIT { 1 ) UNAL INI" 


4R 






I 0_BUFFER 


CHAR ( 200 ) STATU 


47 




nri 


i \J our r tn » 


PTR STAT I C I N I T ( f 








M$CG 


DCB ; 






nri 


M$CG$ 


PTR STATIC SYMDEF 






nri 


M$DO 


DCB ; 






DCL 


M$LO 


DCB ; 






DCL 


MSGTYP 


CHAR ( 8 ) ; 


53 




DCL 


TIME 


CHAR ( 11 ) STATIC 


54 




DCL 


I NTERRUPT_HANDLER ENTRY ASYNC ; 
















%F$DCB ; 
















58 


1 


%FPT_ACT I VATE 




59 




( 


FPTN 


= FPT_ACT I VATE CG , 








STCLASS 
DCB 


- STATIC SYMDEF, 
= M$CG, 


R? 






D I SCONNECT 


= YES, 








STATION 


= VLP_STAT ION_TERM 


P.O. 










RR 




%FPT CGCTL 

( 


FPTN 


= FPTCGCTL_CG, 








STCLASS 


= CONSTANT, 


68 






DCB 


= M$CG, 








CGCP 


= VLPCGCP ) ; 


70 










71 




%FPT CLOSE 






72 




( 


FPTN 


= FPT CLOSE CG, 


73 






STCLASS 


= STATIC SYMDEF, 


74 






DCB 


= M$CG ) ; 


75 










76 




%FPT_INT 







( %NO# ) , 

( %NO# ) , 

( %NO# ) , 

( %NO# ) ; 



77 - ( FPTN = FPT_I NT , 

78 - UENTRY = I NTERRUPT_HANDLER ) ; 

79 - 

80 - %FPT_OPEN 

81 - ( FPTN = FPTOPEN_CG, 

82 - STCLASS = CONSTANT, 

83 - ACCT = VLPACCT, 

84 - ASN = COMGROUP. 

85 - AU = YES , 

86 - CTG - YES , 

87 - DCB = M$CG, 

88 - EXIST = OLDFILE, 

89 - FUN - CREATE, 

90 - NAME = VLPNAME, 

91 - QISS = YES, 

92 - SCRUB = YES, 

93 - SETSTA = VLPSETSTA_AU ) ; 

94 - 

95 - %FPT_READ 

96 - ( FPTN = FPT_READ_CG, 

97 - BUF = I 0_BUFFER , 

98 - DCB - M$CG, 

99 - STATION = VLP_STATION ) ; 

100 - 

101 - %FPT_T I ME 

102 - ( FPTN - FPT_T I ME , 

103 - DATE = DATE, 

104 - DEST = LOCAL, 

105 - TIME = TIME ) ; 

106 - 

107 - %FPT_WRITE 

108 - ( FPTN = FPTJAfllTE_CG, 

109 - STCLASS = STATIC SYMDEF , 

110 - BUF = IO_BUFFER , 

111 - DCB = M$CG ) ; 

112 - 

113 - %FPT_WRITE 

114 - ( FPTN = FPT_WRITE_LO, 

115 - BUF - IO_BUFFER , 



116 - DCB - M$LO ) ; 

117 - 

118 - %VLP_CGCP 

119 - ( FPTN = VLPCGCP, 

120 - STCLASS - CONSTANT, 

121 - RAS = YES. 

122 - TERMCONAU - NO, 

123 - TERMCONNAU = NO, 

124 - TRMRDS I Z - 74 ) ; 

125 - 

126 - %VLP_NAME 

127 - ( FPTN - VLPNAME , 

128 - STCLASS - CONSTANT, 

129 - NAME = ' I NTERNALS_CG ' ) ; 

130 - 

131 - %VLP_ACCT 

132 - ( FPTN = VLPACCT, 

133 - STCLASS = CONSTANT 

134 - /* 

135 - ,ACCT = 'LJSHOST' 

136 - */ 

137 - ) • 

138 - 

139 - %VLP_SETSTA 

140 - ( FPTN = VLPSETSTA_AU, 

141 - STCLASS = CONSTANT, 

142 - MYSTAT I ON - ' AU ' ) ; 

143 - 

144 - %VLP_STATION 

145 - ( FPTN = VLP$STATION, 

146 - STCLASS = BASED ) ; 

147 - 

148 - %VLP_STATION 

149 - ( FPTN = VLP_STATION ) ; 

150 - 

151 - yoVLr^STATION 

152 - ( FPTN = VLP_STAT I ON_TERM , 

153 - MSGTYP = ' LOG_MSG ' ) ; 



154 - 



155 - %VLP_STATION 

156 - ( FPTN = VLP_STATION_DCB, 

157 - STATION - ' DCB ' , 

158 - MSGTYP = ' TRM_ECHO ' ) ; 

159 - 

160 - %EJECT ; 

161 - M$CG$ = DCBADDR ( DCBNUM ( M$CG ) ) ; 

162 - FPT_\Af!ITE_CG.STATION_ = VECTOR ( VLP STATION DCB ) ; 

163 - ~ 

164 - /* 

165 - Create a new comgroup and modify it's control parameters. 

166 - */ 

167 - 

168 - CALL M$OPEN ( FPTOPEN_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

169 - CALL MSCGCTL ( FPTCGCTL_CG ) ALTRET { REPORT_ERROR_AND_EX I T ) ; 

170 - 

171 - /* 

172 - Set break control. 

173 - */ 

174 - 

175 - CALL MSI NT ( FPT_I NT ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

176 - 

177 - /* 

178 - Loop until the TERM station and DCB station have both connected or 

179 - break has been typed at the AU's terminal. 

180 - */ 

181 - 

182 - DO UNTIL ( FLAGS . TERM_CON AND FLAGS .DCB_CON ) OR FLAGS. AU BREAK ; 

183 - 

184 - /* 

185 - Issue a read for a message directed to the AU. This should catch only 

186 - *AUEV messages. 



189 - VLP_STAT I ON . CTL . D I RONLY# = %YES# ; 

190 - CALL MJREAD ( FPT_READ_CG ) ALTRET ( R E POR T_E R ROR_AND EXIT ) ; 

191 - 

192 - IF ( M$CG$->F$DCB.LASTSTA$->VLP$STATION.MSGTYP# = %AU_MESSAGE ) THEN DO ; 

193 - DO CASE IQ_BUFFER$- > B$CGAURD . EVENT ; 



194 - CASE ( %CG_TCON* ) ; 

195 - VLP_STATION_TERM. STATION* = IO_BUFFER$->B$CGAURD.STATION ; 

196 - FLAGS . TERM_CON = %YES# ; 

197 - CASE ( %CG_DOPN# ) ; 

198 - IF ( VLP_STAT I ON_DCB. STATION* = IO_BUFFER$- >B$CGAURD . STAT ION ) THEN DO 

199 - FLAGS . DCB_CON - %YES# ; 

200 - END ; ELSE DO ; 



Let's just ignore this station - it's not the one we expected. 



201 

202 - 

203 - * 

204 - END ; 

205 - CASE ( %CG_TDSC# ) ; 

206 - IF ( VLP_STATION_TERM. STATION* = IO_BUFFER$- >B$CGAURD . STAT I ON ) THEN DO- 

207 - FLAGS . TERM_CON = %NO# ; 

208 - END ; 

209 - CASE ( %CG_DCLS# ) ; 

210 - IF ( VLP_STATION_DCB.STATION* = IO_BUFFER$- >B$CGAURD . STAT ION ) THEN DO ; 

211 - F LAGS . DCB_CON = %NO* ; 

212 - END ; 

213 - CASE { ELSE ) ; 

214 - /* 

215 - Ignore the other possible AU events. 

216 - */ 

217 - END ; 

218 - END ; ELSE DO ; 

219 - /* 

220 - This is an unexpected message - just throw it away. 

221 - */ 

222 - END ; 

223 - 

224 - END ; 

225 - 

226 - IF F LAGS . AU_BREAK THEN DO ; 

227 - GOTO CLOSE_AND_EXIT ; 

228 - END ; 

229 - 

230 - /* 

231 - Activate the terminal station. 

232 - */ 



233 - 

234 - CALL M$ACT I VATE ( FPT_ACT I VATE_CG ) ALTRET ( R E POR T_E R ROR AND EXIT ) ; 

235 - ~ ~ 

236 - /* 

237 - Write a logon message to the terminal station and M$LO. Also send the 

238 - terminal ID to the DCB station. 

239 - */ 

240 - 

241 - FPT_T I ME . DATE_ = VECTOR ( DATE ) ; 

242 - FPT_T I ME . T I ME_ = VECTOR ( TIME ) ; 

243 - CALL M$T IME ( FPT_T I ME ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

244 - CALL CONCAT ( IO_BUFFER , VLP_STAT I ON_TERM . STAT I ON# , ' on at ', TIME ' ' DATE ) ■ 

245 - CALL MSWRITE ( FPT_WR I TE_LO ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

246 - FPT_WRITE_CG.STATION_ = VECTOR ( VLP_STAT I ON_TERM ) ; 

247 - CALL MSWRITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ■ 

248 - 1 0_BUFFER = VLP_STAT I ON_TERM . STAT I ON# ; 

249 - FPT_W?ITE_CG.STATION_ = VECTOR ( VLP_STAT ION_DCB ) ; 

250 - CALL M$WRITE ( FPT_WR I TE_CG ) ALTRET { REPORT ERROR AND EX I T ) ; 

251 - _ - _ 

252 - VLP_STATION.CTL.DIRONLY# = %NO# ; 

253 - 

254 - /* 

255 - The AU is now set up to read all messages, directed or not. The AU wi I I send 

256 - messages read from the terminal station to the DCB station until "OFF" is typed 

257 - at the terminal station or break is entered at the AU's terminal. 

258 - */ 

259 - 

260 - DO UNTIL FLAGS . TERM_LOGOFF OR FLAGS . AU_BREAK ; 

261 - 

262 - IO_BUFFER = ' ' ; 

263 - CALL M$READ ( FPT_READ_CG ) ALTRET { REPORT_ERROR_AND_EX I T ) ; 

264 - 

265 - MSGTYP = M$CG$- > F$DCB . LASTSTA$- >VLP$STAT ION .MSGTYP* ; 

266 - IF ( MSGTYP — %AU_MESSAGE ) THEN DO ; 

267 - IF ( IQ_BUFFER = 'OFF' ) OR ( IO_BUFFER = 'off ) THEN DO ; 

268 - FLAGS . TERM_LOGOFF = %YES# ; 

269 - END ; 

270 - CALL MSVWITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

271 - END ; ELSE DO ; 



272 - DO CASE IO_BUFFER$- >B$CGAURD . EVENT ; 

273 - CASE ( %CG_DCLS# ) ; 

274 - IF ( VLP_STAT I ON_DCB. STATION* = IO_BUFFER$->B$CGAURD. STATION ) AND 

275 - NOT FLAGS . AU_BREAK THEN DO ; 

276 - IO_BUFFER - 'DCB station closed unexpectedly' ; 

277 - CALL M$WRITE ( FPTJAfl I TE_LO ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

278 - FLAGS . TERM_LOGOFF - %YES# ; /* let's fake the terminal logoff */ 

279 - END ; 

280 - CASE ( %CG_TDSC# ) ; 

281 - IF ( VLP_STAT I ON_TERM. STATION* = IO_BUFFER$- >B$CGAURD . STAT ION ) THEN DO ; 

282 - IO_BUFFER = ' TERM station disconnected unexpectedly' ; 

283 - CALL M$WRITE { FPT_V\fl I TE_LO ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

284 - IO_BUFFER = 'AU says goodbye' ; 

285 - CALL M$WRITE ( FPTJAft I TE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

286 - GOTO CLOSE_AND_EX I T ; 

287 - END ; 

288 - CASE ( ELSE ) ; 

289 - /* 

290 - Ignore the other possible AU events. 

291 - */ 

292 - END ; 

293 - END ; 

294 - 

295 - END ; 

296 - 

297 - /* 

298 - Send the logoff message to the terminal station and to M$LO. 

299 - */ 

300 - 

301 - CALL M$T IME ( FPT_T I ME ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

302 - CALL CONCAT ( IO_BUFFER, VLP_STAT I ON_TERM . STAT I ON# , ' off at ', TIME, ' '. DATE ) ; 

303 - CALL MSWtlTE ( FPT_WR I TE_LO ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

304 - FPT_WRITE_CG.STATION_ = VECTOR ( VLP_STAT I ON_TERM ) ; 

305 - CALL M$WRITE ( FPTJAft I TE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

306 - 

307 - /* 

308 - Disconnect the terminal and close the comgroup. 

309 - */ 

310 - 



311 - CALL M$DEACT I VATE ( FPT_ACT I VATE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

312 - 

313 - CLOSE_AND_EX I T : ; 

314 - CALL MSCLOSE ( FPT_CLOSE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

315 - CALL M$EXIT ; 

316 - 

317 - REPORT_ERROR_AND_EX I T : ; 

318 - IF M$CG$->F$DCB.FCD# THEN DO ; 

319 - CALL M$CLOSE ( FPT_CLOSE_CG ) ; 

320 - END ; 

321 - CALL M$MERC ; 

322 - CALL M$EXIT ; 

323 - 

324 - END ADM I N I STRAT I VE_USER ; 

325 - 

326 - %EOD ; 

327 - I NTERRUPT_HANDLER : PROC ASYNC ; 

328 - 

329 - /* 

330 - NAME: I NTERRUPT_HANDLER 

331 - PURPOSE: Takes care of interrupts caused by typing break at the AU's 

332 - terminal . 

333 - DESCRIPTION: If the DCB station is connected to the comgroup, the 'AU says 

334 - goodbye' message is sent and the AU_BREAK flag is sent. The AU 

335 - will then finish processing this break when the DCB station's 

336 - close is announced in an AU event message. If the DCB station is 

337 - not present, the terminal station is disconnected and the AU 

338 - exits. This is done because the AU is hung in a wait read that 

339 - won't complete until the DCB station connects and the break must 

340 - be taken care of irrmed i ate I y . 

341 - */ 

342 - 

343 - 

344 - % INCLUDE CP_6 ; 

345 - % INCLUDE CP_6_SUBS ; 

346 - 

347 - DCL 1 FLAGS SYMREF , 

348 - 2 DCB_CON BIT ( 1 ) UNAL , 

349 - 2 TERM_CON BIT ( 1 ) UNAL. 



350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 



DCL 
DCL 
DCL 



2 ALLBREAK 
2 TERM_LOGOFF 

IO_BUFFER 

M$CG 

M$CG$ 



BIT ( 1 ) UNAL, 
BIT ( 1 ) UNAL ; 
CHAR ( 200 ) SYMREF 
DCB ; 

PTR SYMREF ; 



- %FPT_ACT I VATE 
( FPTN 

STCLASS 

- %FPT_CLOSE 



( FPTN 
STCLASS 

%EJECT ; 

IF F LAGS . DCB_CON THEN DO ; 

IO_BUFFER = 'AU says goodbye' ; 

CALL M$WRITE ( FPT_WR I TE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 
F LAGS . AU_BREAK = %YES# ; 
RETURN ; 
END ; ELSE DO ; 

IF FLAGS . TERM_CON THEN DO ; 

CALL MSDEACT I VATE ( FPT_ACT I VATE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) 
END ; 

CALL M$CLOSE ( FPT_CLOSE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 
CALL MSEXIT ; 
END ; 

REPORT_ERROR_AND_EX IT: ; 

CALL MSCLOSE ( FPT_CLOSE_CG ) ; 

CALL M$MERC ; 

CALL M$EXIT ; 
END I NTERRUPT_HANDLER ; 
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NAME : DCB_ECHO 

PURPOSE: Echoes the messages sent from the AU back to the terminal station 

DESCRIPTION: The DCB station receives the name of the terminal station in the 

first message from the AU. It then sends the messages received 

from the AU to the terminal station in the form 'ECHO: message'. 

If the message 'OFF' or 'AU says goodbye' is received, 

i t s imp I y ex i t s . 



■ DCL 

- DCL 
• DCL 

- DCL 



FLAGS STATIC, 

2 TERM_LOGOFF BIT ( 1 ) UNAL IN IT ( %NO# ), 

2 NO_AU BIT ( 1 ) UNAL IN IT ( %NO# ) 

I N_BUFFER CHAR ( 200 ) STATIC; 

OUT_BUFFER CHAR ( 80 ) ; 

M$CG DCB ; 

M$CG$ PTR ; 



- %FPT_CL0SE 



FPTN 

STCLASS 

DCB 



= FPTCLOSE_CG. 
= CONSTANT, 
= M$CG ) ; 



( FPTN 
STCLASS 
ACCT 
ASN 



= FPTOPEN_CG, 
= CONSTANT, 
= VLPACCT, 
= COMGROUP, 



38 - DCB = M$CG, 

39 - FUN - UPDATE, 

40 - NAME = VLPNAME, 

41 - SCRUB = YES , 

42 - SETSTA = VLPSETSTA_DCB ) ; 

43 - 

44 - %FPT_READ 

45 - ( FPTN = FPTREAD_CG , 

46 - STCLASS = CONSTANT, 

47 - BUF = I N_BUFFER , 

48 - DCB - M$CG,' 

49 - STATION - VLPSTAT I ON_AU ) ; 

50 - 

51 - %FPT_\AfllTE 

52 - ( FPTN = FPT_VvRITE_CG, 

53 - DCB = M$CG, 

54 - STATION = VLP_STAT I ON_TERM ) ; 

55 - 

56 - %VLP_ACCT 

57 - { FPTN - VLPACCT, 

58 - STCLASS - CONSTANT 

59 - /* 

60 - ,ACCT = 'LJSHOST' 

61 - »/ 

62 - ) ; 

63 - 

64 - %VLP_NAME 

65 - ( FPTN = VLPNAME. 

66 - STCLASS = CONSTANT, 

67 - NAME = I NTERNALS_CG ' ) ; 

68 - 

69 - %VLP_SETSTA 

70 - ( FPTN = VLPSETSTA_DCB , 

71 - STCLASS = CONSTANT, 

72 - MYSTAT I ON = 'DCB' ) ; 

73 - 

74 - %VLP_STATION 

75 - ( FPTN = VLPSTAT I ON_AU, 

76 - STCLASS - CONSTANT, 



77 - DIRONLY = YES, 

78 - MSGTYP = ' TRM_ECHO ' , 

79 - STATION = 'AIT ) ; 

80 - 

81 - %VLP_STATION 

82 - ( FPTN = VLP_STAT I ON_TERM , 

83 - MSGTYP = ' TRM_ECHO ' ) ; 

84 - 

85 - %EJECT ; 

86 - M$CG$ = DCBADDR ( DCBNUM ( M$CG ) ) ; 

87 - 

88 - /* 

89 - Open the comgroup. 

90 - */ 

91 - 

92 - CALL M$OPEN ( FPTOPEN_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

93 - 

94 - I* 

95 - nead the name of the terminal station. 

96 - */ 

97 - 

98 - CALL M$READ ( FPTREAD_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

99 - IF I N_BUFFER = ' AU says goodbye' THEN DO ; 

100 - FLAGS. NO_AU - %YES# ; 

101 - END ; ELSE DO ; 

102 - VLP_STATION_TERM. STATION* = IN_BUFFER ; 

103 - END ; 

104 - 

105 - /* 

106 - Read the messages from the AU and forward them to the terminal station 

107 - until the AU goes away or the terminal logs off. 

108 - */ 

109 - 

110 - DO WHILE NOT FLAGS . TERM_LOGOFF AND NOT FLAGS. NO_AU ; 

111 - 

112 - CALL M$READ ( FPTREAD_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

113 - IF ( I N_BUFFER = 'OFF' ) OR ( I N_BUFFER = 'off ) THEN DO ; 

114 - FLAGS. TERM_LOGOFF - %YES# ; 

115 - END ; ELSE IF ( I N_BUFFER = 'AU says goodbye' ) THEN DO ; 



116 - FLAGS . NO_AU = %YES# ; 

117 - END ; ELSE DO ; 

118 - CALL CONCAT ( OUT_BUFFER , 'ECHO: ' , I N_BUFFER ) ; 

119 - FPT_WRITE_CG.BUF_ - VECTOR ( OUT_BUFFER ) ; 

120 - FPT_WRITE_CG.BUF_.BOUND - M$CG$->F$DCB.ARS# - 1 ; 

121 - CALL M$VWITE ( FPT_WRITE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

122 - END ; 

123 - 



124 - END ; 

125 - 

126 - CALL M$CLOSE ( FPTCLOSE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

127 - CALL M$EXIT ; 

128 - 

129 - REPORT_ERROR_AND_EX I T : ; 

130 - IF M$CG$->F$DCB.FCD# THEN DO ; 

131 - CALL M$CLOSE ( FPTCLOSE_CG ) ; 

132 - END ; 

133 - CALL M$MERC ; 

134 - CALL M$EXIT ; 

135 - 

136 - END DCB_ECHO ; 



LAB 4 
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EVENT_HANDLER : PROC ASYNC 



NAME: 
PURPOSE : 
DESCRIPTION: 



EVENT_HANDLER 

Takes care of events caused by IO completion. 
Sets the appropriate flags and returns. 



= "BASED ( B$WVIO$ )" ) 



■ DCL 

- DCL 

- DCL 



B$N/VIO$ 
B$TCB$ 
EVENTS 

2 PR I NT_COMP 
2 CONSOLE_COMP 
2 BAD_COMP 
2 ERR 
2 TYC 



■ %EJECT ; 
• DO INHIBIT 
B$NWIO$ 



PTR ; 

PTR SYMREF ; 
SYMREF , 

BIT ( 1 ) UNAL, 
BIT ( 1 ) UNAL, 
BIT ( 1 ) UNAL, 
BIT ( 36 ) , 
BIT ( 36 ) ; 



B$TCB$->B$TCB.STK$ ; 
DO CASE ( B$IWVIO.EVID ) ; 

CASE ( %PR I NT_READ_EVENT ) ; 

EVENTS.PRINT_COMP = %YES# ; 
CASE ( %CONSOLE_READ_EVENT ) ; 
EVENTS. CONSOLE_COMP = %YES# 



nt I y imp I emented : 



38 - CASE ( ELSE ) ; 

39 - EVENTS. BAD_COMP = %YES# ; 

40 - END ; 

41 - EVENTS. ERR = B$WVIO.ERR ; 

42 - EVENTS. TYC - BSNWIO.TYC ; 

43 - END ; 

44 - 

45 - RETURN ; 

46 - 

47 - END E VE N T_HAND L E R ; 
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1 - UOB NAME= I NT_CGLAB_CRU ,V\£N=UPSTA I RS 

2 - ! RESOURCE T I ME=3 , MEM=256 

3 - !PL6 I NT_CGLAB_S I 1 OVER * I NT_CGLAB_OU1 , I NT_CGLAB_LS1 

4 - ILINK * INT_CGLAB_OU1 OVER I NT_CGLAB_1 

5 - !PL6 INT_CGLAB_SI2 OVER * I NT_CGLAB_OU2 , I NT_CGLAB_LS2 

6 - ! L I NK * I NT_CGLAB_OU2 OVER I NT_CGLAB_2 

7 - !C I NT_CGLAB_LS1 TO LP 

8 - !C I NT_CGLAB_LS2 TO LP 
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1 - !JOB NAME=INT_CGLAB_CRU,W5N=UPSTAIRS 

2 - ! RESOURCE T IME=3 ,MEM=256 

3 - !PL6 I NT_CGLAB_PART_S 11 OVER * I NT_CGLAB_PART_OU1 , I NT_CGLAB_PART_LS1 

4 - (LINK * INT_CGLAB_PART_OU1 OVER I NT_CGLAB_PART_1 

5 - !C I NT_CGLAB_PART_LS 1 TO LP 
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■ /*M* I NT_CGLAB_PART_S I 1 internals class comgroup lab - SI 1 of 2 
- OUTSYM_AU : PROC MA I N ; 



PURPOSE: This is the administrative user for the partial version of OUTSYM. 

Files are copied into the comgroup by DCB stations identified 
by SYSID. These files are copied to PR I NT : sys i d_ext files. 

DESCRIPTION: This AU is run from online. It opens (creates) a comgroup and 
modifies it to fit this application via M$CGCTL . It recognizes 
DCB connections as a signal to open a new PRINT file. It then 
takes all records provided by that station and writes them to 
the PRINT file. It recognizes a DCB close as a signal that all 
records have been written into the comgroup (but possibly not 
processed yet). Because of this, a second DCB station exists 
(a non-AU station) which does wait reads to process the 
messages remaining in the comgroup written by the closing DCB. 
NOTE: The comgroup AU cannot do this because if *AUEV 
messages exist in the comgroup (having highest message prio) 
an AU read specifying a message of some other message type will 
be satisfied by this *AUEV message - welcome to the wonderful 
world of comgroups! 



% INCLUDE CP_6 ; 

% INCLUDE CP_6_SUBS ; 

% INCLUDE B_ERRORS_C ; 

% INCLUDE XU_MACRO_C ; 

% INCLUDE XUG_ENTRY ; 

%EQU AU_MESSAGE = ' *AUEV 

%EQU PR I NT_READ_EVENT - 1001 ; 

%EQU CONSOLE_READ_EVENT= 1002 ; 









nATp B$ 


PTR SYMREF ; 


an 




nri" 




CHAR ( 8 ) STAT I C ; 


a\ 






DCB_NUM 


UB I N STAT I C ; 


a\ 




nri 

DCL 1 


EVENTS 


STATIC SYMDEF , 








2 PR I NT_COMP 


BIT ( 1 ) UNAL INIT ( c 


AA 
A^ 






2 CON SO L E_COMP 


BIT ( 1 ) UNAL INIT ( 0 








2 BAD_COMP 


B I T ( 1 ) UNAL INIT ( ° 


AP, 






2 ERR 


BIT ( 36 ) , 


A7 






2 TYC 


BIT ( 36 ) ; 


AO 

48 




DCL 


EXTENS ION 


UBIN STATIC INIT ( 0 ) 






DCL 




UBIN ; 


n 






IDX 


SB I N ; 






nri" 


IO_BUFFER 


CHAR ( 200 ) STATIC ; 






DCL 


IO_BUFFER$ 


PTR STAT I C INIT ( ADDR 








M «rr* 


DCB ; 






nri 


M$CG$ 


PTR ; 






nri 


M$SPEC I AL 


DCB ; 






nri 


MSSPEC I AL$ 


PTR ; 






nri 

DCL 1 


PR I NT_F I LES 


( 0:99 ) STATIC, 








2 NAME_EXT 


CHAR ( 12) I N I T ( ' ' 








2 NAME 


REDEF NAME_EXT, 


60 






3 STATION 


CHAR ( 8 ) , 


61 






3 EXTENSION 


CHAR ( 4 ) , 




z 




2 DCB NUM 


UBIN INIT ( 0*100 ) ; 


63 




DCL 


PR I NTNUM 


UBIN STATIC INIT ( 0 ) 


64 


- 


DCL 


TIME 


CHAR ( 11 ) STATIC ; 


65 




DCL 


EVENT_HANDLER 


ENTRY ASYNC ; 


66 




DCL 


I NTERRUPT_HANDLER 


ENTRY ASYNC ; 


67 










68 




%B$CGAURD 






69 






FPTN 


BSCGAURD 


70 
71 






STCLASS 


"BASED ( ' IO_BUFFER$ )" 


72 




%B$ALT ; 






73 










74 




%B$TCB ; 






75 










76 




%EQU_CG ; 







77 - 

78 - %F$DCB ; 

79 - 



80 - %FPT_ACT I VATE 

81 - ( FPTN = FPT_ACT I VATE_CG , 

82 - STCLASS = STATIC, 

83 - DCB = M$CG, 

84 - DISCONNECT = YES ) ; 

85 - 

86 - %FPT_CGCTL 

87 - ( FPTN = FPT_CGCTL_CG, 

88 - DCB = M$CG, 

89 - CGCP = VLP_CGCP_SPECIAL ) ; 

90 - 

91 - %FPT_CLOSE 

92 - ( FPTN - FPT_CLOSE_CG, 

93 - STCLASS = STATIC, 

94 - DCB = M$CG ) ; 

95 - 

96 - %FPT_CLOSE 

97 - ( FPTN = FPT_CLOSE_INPUT, 

98 - DISP = SAVE ) ; 

99 - 

100 - %FPT_EVENT 

101 - ( FPTN - FPT_EVENT, 

102 - UENTRY = EVENT_HANDLER ) ; 

103 - 

104 - %FPT_GETDCB 

105 - { FPTN - FPT_GETDCB, 

106 - DCBNAME = VLP_NAME_DCB , 

107 - DCBNUM - DCB_NUM ) ; 

108 - 

109 - %FPT_INT 

110 - ( FPTN - FPT_I NT , 

111 - UENTRY = I NTERRUPT_HANDLER ) ; 

112 - 

113 - %FPT_OPEN 

114 - ( FPTN - FPTOPEN_CG, 

115 - STCLASS = CONSTANT, 

















17 








AQN 




COMGROUP , 










A I II 






1Q 








rVr 


= 


vcc ' 


1 ?n 








nr-R 




Mtrr 


' t\ 








EXIST 




OLDF I LE , 










MA^C 




CREATE , 














VLPNAME , 


24 








Ol cc 






1 25 








epii jo 


_ 


VFQ ' 


?fi 








SETSTA 




VLPSETSTA_AU ) 


97 














1 ?R 




%FPT. 


_OPEN 








i^n 












FPTOPEN_SPEC I AL 










STCLASS 


= 


CONSTANT , 


1 11 












VLPACCT , 


132 








ASN 




COMGROUP , 










DCB 




M$SPECI AL , 


il*! 










= 


UPDATE , 










MAM 

NAME 


= 


VLPNAME , 


1 








SCRUB 


= 


YES , 


117 
I^R 








SETSTA 




VLPSETSTA_SPEC I / 






























140 








! FPTN 


= 


FPT_OPEN_l NPUT , 










ASN 




F I LE , 


1/1 








EXIST 




NBM= I LE , 


141 










= 


CREATE , 


144 
14^ 








MAMF 


= 


VLP_NAME_PR I NT , 










nor 




CONSEC , 


Idfi 








SCRUB 




















148 




7FPT 


READ 








149 






I 


; FPTN 




FPT_READ_CG , 


150 








BUF 




IO BUFFER, 


151 








DCB 




M$CG, 


152 








EVENT 




%PRINT READ EVEf 


153 








STATION 




VLP STATION, 


154 








WAIT 




NO ) ; 



155 - 



156 - %FPT_READ 

157 - ( FPTN = FPT_READ_SPEC I AL , 

158 - BUF - IO_BUFFER, 

159 - DCB = MSSPECIAL, 

160 - STATION - VLP_STATION_SPECIAL ) ; 

161 - 

162 - %FPT_RELDCB 

163 - ( FPTN - FPT_RELDCB ) ; 

164 - 

165 - %FPT_WAIT 

166 - ( FPTN = FPTWA I T_ASECOND , 

167 - STCLASS = CONSTANT, 

168 - UNITS - 1 ) ; 

169 - 

170 - %FPT_WRITE 

171 - ( FPTN - FPT_WRITE_INPUT, 

172 - BUF = IO_BUFFER ) ; 

173 - 

174 - %VLP_CGCP 

175 - ( FPTN = VLP_CGCP_OUTSYM, 

176 - CONMSG = YES, 

177 - DCBCONAU = NO, 

178 - DCBCOWVA - YES, 

179 - MINPG = 4, 

180 - RAS = YES ) ; 

181 - 

182 - %VLP_CGCP 

183 - ( FPTN = VLP_CGCP_SPECIAL, 

184 - CONMSG = NO ) ; 

185 - 

186 - %VLP_NAME 

187 - { FPTN = VLP_NAME_DCB , 

188 - LEN = 31 ) ; 

189 - 

190 - %VLP_NAME 

191 - ( FPTN = VLP_NAME_PR I NT , 

192 - LEN = 31 ) ; 



193 - 



194 - %VLP_NAME 

195 - ( FPTN - VLPNAME. 

196 - STCLASS - CONSTANT , 

197 - NAME - ' I NTERNALS_CG ' ) ; 

199 - %VLP_ACCT 

200 - ( FPTN - VLPACCT, 

201 - STCLASS = CONSTANT 

202 - /* 

203 - ,ACCT = 'LJSHOST' 

204 - */ 

205 - ) ; 

206 - 

207 - %VLP_SETSTA 

208 - ( FPTN = VLPSETSTA_AU, 

209 - STCLASS - CONSTANT, 

210 - MYSTAT ION = 'AU' ) ; 

211 - 

212 - %VLP_SETSTA 

213 - ( FPTN = VLPSETSTA_SPECIAL, 

214 - STCLASS - CONSTANT, 

215 - MYSTAT I ON = 'SPECIAL' ) ; 

216 - 

217 - %VLP_STATION 

218 - ( FPTN = VLP$STATION, 

219 - STCLASS = BASED ) ; 

220 - 

221 - %VLP_STATION 

222 - ( FPTN = VLP_STATION ) ; 

223 - 

224 - %VLP_STATION 

225 - ( FPTN = VLP_STATION_SPECIAL, 

226 - EOF NONE = YES, 

227 - MSGTYP = 'PRINT ' ) ; 

228 - 

229 - %VLP_STATION 

230 - ( FPTN - VLP_STATION_DCB ) ; 



231 - 

232 - %XUG_GETCMD 



233 - ( NAME = XUGGETCMD , 

234 - STCLASS = CONSTANT ) ; 

235 - 

236 - %EJECT ; 

237 - /* 

238 - Set break control. 

239 - */ 

240 - 

241 - CALL MSI NT ( FPTJNT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

242 - 

243 - M$CG$ = DCBADDR ( DCBNUM ( M$CG ) ) ; 

244 - M$SPECIAL$ = DCBADDR ( DCBNUM ( M$SPECIAL ) ) ; 

245 - 

246 - /* 

247 - Create a new comgroup and modify its control parameters. 

248 - The first CGCTL specifies CONMSG=NO so the SPECIAL station can connect 

249 - without requiring activation. After that, another CGCTL is done specifyi 

250 - the normal parameters that we should use. 

251 - */ 

252 - 

253 - CALL M$OPEN ( FPTOPEN_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

254 - CALL M$CGCTL ( FPT_CGCTL_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

255 - CALL MSOPEN ( FPTOPEN_SPEC I AL ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

256 - FPT_CGCTL_CG.CGCP_ = VECTOR ( VLP_CGCP_OUTSYM ) ; 

257 - CALL M$CGCTL ( FPT_CGCTL_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

258 - 

259 - /* 

260 - Set event control . 

261 - */ 

262 - 

263 - CALL MSEVENT ( FPT_EVENT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

264 - 

265 - /* 

266 - Start the first no-wait read. 

267 - */ 

268 - 

269 - CALL M$READ ( FPT_READ_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

270 - 

271 - /* 



I 



272 - Start normal operation of getting PRINT files and printing them if possible. 

273 - */ 

274 - 

275 - DO WH I LE %YES# ; 

276 - 

277 - DO INHIBIT ; 

278 - DO WHILE EVENTS . PR I NT_COMP ; 

279 - CALL PROCESS_READ_EVENT ; 

280 - EVENTS . PR I NT_COMP = %NO# ; 

281 - IO_BUFFER = ' ' ; 

282 - CALL MSREAD ( FPT_READ_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

283 - END ; 

284 - CALL MJWAIT ( FPTWA I T_ASECOND ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

285 - END ; 



286 - 

287 - END ; 

288 - 

289 - %EJECT ; 

290 - PROCESS_READ_EVENT : PROC ; 

291 - 



292 - /* 

293 - The message just read could be an AU event or a record to be written into 

294 - one of the print files being created. Take care of it appropriately. 

295 - */ 

296 - 

297 - DCL EOF BIT ( 1 ) ; 

298 - 

299 - IF ( M$CG$->F$DCB.LASTSTA$->VLP$STATION.MSGTYP# = %AU_MESSAGE ) THEN DO ; 

300 - DO CASE B$CGAURD. EVENT ; 

301 - 

302 - /* 

303 - This is a new DCB station. This station needs to be activated so 

304 - that it can start shoveling data into the comgroup. An entry is 

305 - then built in the print file table containing the station name and 

306 - file extension, along with a non-zero DCB number. This number 

307 - signifies that this print file is not complete (it can't be printed 

308 - yet). The DCB number is also necessary when writing records to the 

309 - file. 

310 - */ 



312 - CASE { %CG_DOPN* ) ; 

313 - VLP_STAT I ON_DCB. STATION* = B$CGAURD . STAT ION ; 

314 - FPT_ACTIVATE_CG.STATION_ = VECTOR ( VLP_STAT ION_DCB ) ; 

315 - CALL M$ACT I VATE ( FPT_ACT I VATE_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END 

316 - CALL GET_NEW_ I NDEX ( IDX ) ; 

317 - PR I NT_F I LES . NAME . STAT I ON ( IDX ) = B$CGAURD . STAT ION ; 

318 - EXTENSION = EXTENSION + 1 ; 

319 - CALL BINCHAR ( PR I NT_F I LES . NAME . EXTENS ION ( IDX ), 

320 - EXTENSION ) ; 

321 - CALL M$GETDCB ( FPT_GETDCB ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

322 - PR I NT_F I LES . DCB_NUM ( IDX ) = DCB_NUM ; 

323 - CALL CONCAT { VLP_NAME_PR I NT . NAME* , 

324 - 'PRINT: ' , 

325 - PR I NT_F I LES . NAME_EXT ( IDX ) ) ; 

326 - CALL INDEX ( I , 

327 - ' • , 

328 - VLP_NAME_PR I NT . NAME* , 

329 - 0 ) ; 

330 - VLP_NAME_PR I NT . L* = I ; 

331 - FPT_OPEN_INPUT.V.DCB# - DCB_NUM ; 

332 - CALL MSOPEN ( FPT_OPEN_ I NPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

333 - 

334 - /* 

335 - This event signifies that the DCB station is finished writing data 

336 - into the comgroup and is going away. The records in the comgroup 

337 - that haven't been processed yet are read by the SPECIAL station 

338 - using WAIT IO and EOFNONE and written to the print file. The 

339 - print file is then closed and the DCB number in the print file table 

340 - is set to zero to signal that this file is ready to print. 

341 - 

342 - The reason that the DCB stations must be activated upon connection 

343 - to the comgroup is now apparent - if this closing station immediately 

344 - reconnected and started writing records, we would put the new data 

345 - is this old print f i le. 

346 - */ 

347 - 

348 - 

349 - 



350 - IDX ) ; 

351 - IF ( IDX >= 0 ) THEN DO ; 

352 - VLP_STATION_SPECIAL.STATION# = PR I NT_F I LES . NAME . STAT ION ( IDX ) ; 

353 - FPT_WRITE_INPUT.V.DCB# - PR I NT_F I LES .DCB_NUM ( IDX ) ; 

354 - EOF = %NO# ; 

355 - DO WHILE NOT EOF ; 

356 - CALL M$READ { FPT_READ_SPEC I AL ) 

357 - WHENALTRETURN DO ; 

358 - IF ( B$TCB$->B$TCB.ALT$->B$ALT. ERR. CODE = %E$EOF ) THEN DO ; 

359 - EOF = %YES# ; 

360 - END ; ELSE DO ; 

361 - CALL ERROR_EX I T ; /* DOESN'T RETURN */ 

362 - END ; 

363 - END ; 

364 - IF NOT EOF THEN DO ; 

365 - FPT_WRITE_INPUT.BUF_.BOUND = M$SPEC I AL$- > F$DCB . ARS# - 1 ; 

366 - CALL M$WRITE ( FPT_WR I TE_I NPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END : 

367 - END ; 

368 - END ; 

369 - FPT_CLOSE_INPUT.V.DCB# = PR I NT_F I LES . DCB_NUM ( IDX ) ; 

370 - CALL M$CLOSE ( FPT_CLOSE_l NPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

371 - FPT_RELDCB.V.DCB# = PR I NT_F I LES . DCB_NUM ( IDX ) ; 

372 - CALL MSRELDCB ( FPT_RELDCB ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

373 - PR I NT_F I LES . DCB_NUM ( IDX ) = 0 ; 

374 - END ; 

375 - 

376 - CASE ( ELSE ) ; 

377 - /* 

378 - Ignore the other possible AU events. 

379 - */ 

380 - END ; 

381 - 

382 - END ; ELSE DO ; 

383 - /* 

384 - This is a record to bewritten to a print file. 

385 - */ 

386 - CALL GET_STAT I ON_ I NDEX ( M$CG$- > F$DCB . LASTSTA$- > VLPSSTAT ION . STAT I ON# , 

387 - IDX ) ; 

388 - IF ( IDX >= 0 ) THEN DO ; 



389 - FPT_WRITE_INPUT.V.DCB# - PR I NT_F I LES . DCB_NUM ( IDX ) ; 

390 - FPT_WRITE_INPUT.BUF_.BOUND - M$CG$- > F$DCB . ARS# - 1 ; 

391 - CALL M$\Af!ITE ( FPTJA/R I TE_I NPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

392 - END ; 

393 - END ; 

394 - 

395 - RETURN ; 

396 - 

397 - END PROCESS_READ_EVENT ; 

398 - 

399 - %EJECT ; 

400 - GET_NEW_ INDEX : PROC ( IDX ) ; 

401 - 

402 - /* 

403 - Get an unused entry in the print file table. Returns -1 if none 

404 - are ava i I ab I e . 

405 - */ 

406 - 

407 - DCL IDX SB IN ; 

408 - 

409 - DCL I UBIN ; 

410 - 

411 - 

412 - I = 0 ; 

413 - DO WHILE ( I <= PR I NTNUM ) AND ( PR I NT_F I LES . NAME . STAT I ON (!)-=''); 

414 - | = | + 1; 

415 - END ; 

416 - 

417 - IF ( I = PRINTNUM ) AND ( PR I NTNUM < 100 ) THEN DO ; 

418 - PRINTNUM = PRINTNUM + 1 ; 

419 - IDX = I ; 

420 - END ; ELSE IF ( I < PRINTNUM ) THEN DO ; 

421 - IDX = I ; 

422 - END ; ELSE DO ; 

423 - IDX = -1 ; 

424 - END ; 

425 - 

426 - RETURN ; 

427 - 



428 - END GET_NEW_ INDEX ; 

429 - 

430 - %EJECT ; 

431 - GET_PR I NTABLE_I NDEX : PROC ( IDX ) ; 

432 - 

433 - /* 

434 - Get the index of a printable file - name not blank and DCB number zeroed. 

435 - -1 is returned if none exist. 

436 - */ 

437 - 

438 - DCL IDX SB I N ; 

439 - 

440 - DCL I UBIN ; 

441 - 

442 - 

443 - I = 0 ; 

444 - IDX = -1 ; 

445 - DO WHILE ( I <= PR I NTNUM ) AND ( IDX = -1 ) ; 

446 - IF ( PR I NT_F I LES . NAME . STAT I ON ( I )--'') AND ( PR I NT_F I LES . DCB_NUM ( I ) = 0 ) THEN DO : 

447 - IDX = I ; 

448 - END ; 

449 - |=| + 1; 

450 - END ; 

451 - 

452 - RETURN ; 

453 - 

454 - END GET_PR I NTABLE_I NDEX ; 

455 - 

456 - %EJECT ; 

457 - GET_STAT I ON_ I NDEX : PROC { STATION, IDX ) ; 

458 - 

459 - /* 

460 - Get the index of the given station. -1 is returned if it doesn't exist. 

461 - *l 

462 - 

463 - DCL STATION CHAR ( 8 ) ; 

464 - DCL IDX SB I N ; 

465 - 

466 - DCL I UBIN ; 



467 - 

468 - 

469 - 1=0; 

470 - IDX 1 ; 

471 - DO WHILE ( I <= PR I NTNUM ) AND ( IDX = -1 ) ; 

472 - IF ( STATION - PR I NT_F I LES . NAME . STAT I ON ( I ) ) AND ( PR I NT_F I LES . DCB_NUM ( I ) -= 0 ) THEN C 

473 - IDX = I ; 

474 - END ; 

475 - 1=1+1; 

476 - END ; 

477 - 

478 - RETURN ; 

479 - 

480 - END GET_STAT I ON_ I NDEX ; 

481 - 

482 - %EJECT ; 

483 - ERROR_EX I T : PROC ; 

484 - 

485 - CALL XUG$CLOSE_DCBS ( XUGGETCMD ) ; 

486 - CALL M$MERC ; 

487 - CALL MSEXIT ; 

488 - 

489 - END ERROR_EX I T ; 

490 - 

491 - 

492 - 

493 - END OUTSYM_AU ; 

494 - 

495 - %EOD ; 

496 - I NTERRUPT_HANDLER : PROC ASYNC ; 

497 - 

498 - /* 

499 - NAME: I NTERRUPT_HANDLER 

500 - PURPOSE: Takes care of interrupts caused by typing break at the AU's 

501 - terminal . 

502 - DESCRIPTION: Closes all DCB's and exits. 

503 - */ 

504 - 

505 - 



506 - % INCLUDE CP_6 ; 

507 - % INCLUDE CP_6_SUBS ; 

508 - % INCLUDE XU_MACRO_C ; 

509 - % INCLUDE XUG_ENTRY ; 

510 - 

511 - %XUG_GETCMD 

512 - ( NAME = XUGGETCMD , 

513 - STCLASS = CONSTANT ) ; 

514 - 

515 - %EJECT ; 

516 - CALL XUG$CLOSE_DCBS ( XUGGETCMD ) ; 

517 - CALL M$EXIT ; 

518 - 

519 - END I NTERRUPT_HANDLER ; 

520 - 

521 - %EOD ; 

522 - EVENT_HANDLER : PROC ASYNC ; 

523 - 

524 - /* 

525 - NAME: EVENT_HANDLER 

526 - PURPOSE: Takes care of events caused by IO completion. 

527 - DESCRIPTION: Sets the appropriate flags and returns. 

528 - */ 

529 - 

530 - 

531 - % INCLUDE CP_6 ; 

532 - % INCLUDE CP_6_SUBS ; 

533 - 

534 - %B$TCB ; 

535 - 

536 - %B$WVIO 

537 - ( STCLASS = "BASED ( B$IWVIO$ ) " ) ; 



538 
539 
540 
541 
542 
543 
544 



%EQU 
%EQU 



DCL 
DCL 
DCL 



PR I NT_READ_EVENT - 1001 
CONSOLE_READ_EVENT= 1002 



B$NWIO$ 
B$TCB$ 
EVENTS 



PTR ; 

PTR SYMREF 
SYMREF , 



545 - 2 PRINT_COMP BIT ( 1 ) UNAL , 

546 - 2 CONSOLE_COMP BIT ( 1 ) UNAL, 

547 - 2 BAD_COMP BIT ( 1 ) UNAL , 

548 - 2 ERR BIT ( 36 ) . 

549 - 2 TYC BIT { 36 ) ; 

550 - 

551 - %EJECT ; 

552 - DO INHIBIT ; 

553 - B$IWVIO$ - B$TCB$->B$TCB.STK$ ; 

554 - DO CASE ( BJWVIO.EVID ) ; 

555 - CASE ( %PR I NT_READ_EVENT ) ; 

556 - EVENTS.PRINT_COMP = %YES# ; 

557 - CASE { %CONSOLE_READ_EVENT ) ; /* not 

558 - EVENTS. CONSOLE_COMP = %YES# ; 

559 - CASE ( ELSE ) ; 

560 - EVENTS . BAD_COMP = %YES# ; 

561 - END ; 

562 - EVENTS. ERR = B$WVIO.ERR ; 

563 - EVENTS. TYC = BSIWVIO.TYC ; 

564 - END ; 

565 - 

566 - RETURN ; 

567 - 

568 - END EVENTJHANDLER ; 



rrently implemented */ 



17:34 AUG 29 '85 I NT_CGLAB_S I 1 



1 - /*M* I NT_CGLAB_S I 1 internals class comgroup lab - SI1 of 2 */ 

2 - OUTSYM_AU : PROC MAIN ; 

3 - 

4 - /* 

5 - NAME: OUTSYM_AU 

6 - 

7 - PURPOSE: This is the admi n i s t rat i ve user for a simple version of OUTSYM. 

8 - Files are copied into the comgroup by DCB stations identified 

9 - by SYS ID. These files are copied to PR I NT : sys i d_ext files 

10 - and are printed at a terminal station if one is connected. 

11 - 

12 - DESCRIPTION: This AU is run from online. It opens (creates) a comgroup and 

13 - modifies it to fit this application via M$CGCTL. It recognizes 

14 - DCB connections as a signal to open a new PRINT file. It then 

15 - takes all records provided by that station and writes them to 

16 - the PRINT file. It recognizes a DCB close as a signal that all 

17 - records have been written into the comgroup (but possibly not 

18 - processed yet). Because of this, a second DCB station exists 

19 - (a non-AU station) which does wait reads to process the 

20 - messages remaining in the comgroup written by the closing DCB. 

21 - NOTE: The comgroup AU cannot do this because if *AUEV 

22 - messages exist in the comgroup (having highest message prio) 

23 - an AU read specifying a message of some other message type will 

24 - be satisfied by this *AUEV message - welcome to the wonderful 

25 - world of comgroups! 

26 - A terminal connect signals that a "printer" is available so 

27 - PRINT files can be sent to it. A terminal disconnect signals 

28 - that we can no longer print files. If a file is currently 

29 - being printed, that file is closed and saved to be printed 

30 - again. A terminal break signals that the terminal requests 

31 - to be disconnected. The print file is also saved in this case, 

32 - if necessary . 

33 - 

34 - */ 

35 - 

36 - 

37 - % INCLUDE CP_6 ; 







%l NCLUDE 
% I NCLUDE 


CP_6_SUBS ; 
B_ERRORS C ; 






An 
40 




%l NCLUDE 


XU MACRO C ; 










% I NCLUDE 


XUG_ENTRY ; 






A 

42 


... 
















AU_MESSAGE 


- ' *AUEV ' ; 




AA 




%EQU 


FORM FEED 


= 12 ; 




A 

45 




%EQU 


PRINT READ EVENT 


= 1001 ; 








%EQU 


CONSOLE_READ_EVENT= 1002 ; 




A7 












0 




nr!" 


B$TCB$ 


PTR SYMREF ; 








DCL 


CUR PRINTFILE 


SB IN STATIC IN IT ( -1 


) ; 


50 




DCL 


DATE 


CHAR ( 8 ) STATIC ; 




51 




DCL 


DCB NUM 


UBIN STATIC ; 




52 




DCL 1 


EVENTS 


STATIC SYMDEF, 




53 






2 PRINT COMP 


BIT ( 1 ) UNAL INIT ( 


%NO# ) , 


54 






2 CONSOLE COMP 


BIT ( 1 ) UNAL INIT ( 


%NO# ) , 


55 






2 BAD COMP 


BIT ( 1 ) UNAL INIT ( 


%NO# ) , 


56 






2 ERR 


BIT ( 36 ) , 




57 






2 TYC 


BIT ( 36 ) ; 




58 




DCL 


EXTENSION 


UBIN STATIC INIT ( 0 


) ; 


59 




DCL 


I 


UBIN ; 




60 




DCL 


IDX 


SB IN ; 




61 




DCL 


IO BUFFER 


CHAR ( 200 ) STATIC ; 




c 2 




DCL 


IO BUFFERS 


PTR STATIC INIT ( ADDR ( I 0_BUFFER 


63 




DCL 


M$CG 


DCB ; 




64 




DCL 


M$CG$ 


PTR ; 




65 




DCL 


M$SPECIAL 


DCB ; 




66 




DCL 


M$SPECIAL$ 


PTR ; 




67 




DCL 


M$PR I NT 


DCB ; 




68 




DCL 


M$PRINT$ 


PTR ; 






_ 




PRINT BUFFER 


CHAR ( 200 ) STATIC ; 




70 




DCL 1 


PRINT FILES 


( 0:99 ) STATIC, 




71 






2 NAME EXT 


CHAR ( 12 ) INIT ( ' 


' * 100 ) , 


72 






2 NAME 


REDEF NAME_EXT , 




73 






3 STATION 


CHAR ( 8 ) . 




74 






3 EXTENSION 


CHAR ( 4 ) , 




75 






2 DCB NUM 


UBIN INIT ( 0*100 ) ; 




76 




DCL 


PR I NTNUM 


UBIN STATIC INIT ( 0 


) ; 



77 - DCL 

78 - DCL 

79 - DCL 

80 - 

81 - %B$CGAURD 

82 - ( FPTN 

83 - STCLASS 

84 - 

85 - %B$ALT ; 

86 - 

87 - %B$TCB ; 

88 - 

89 - %EQU_CG ; 

90 - 

91 - %F$DCB ; 

92 - 

93 - %FPT_ACT I VATE 

94 - ( FPTN 

95 - STCLASS 

96 - DCB 

97 - DISCONNECT 



TIME CHAR ( 11 ) STATIC 

EVEN T_HAND L E R ENTRY ASYNC ; 

I NTERRUPT_HANDLER ENTRY ASYNC ; 



ya - 

99 - %FPT_CGCTL 



100 
101 
102 
103 
104 
105 
106 
107 



( FPTN 
DCB 
CGCP 



- %FPT_CLOSE 



( FPTN 
STCLASS 
DCB 



i - %FPT_CLOSE 



112 
1 13 
1 14 
115 



( FPTN 
DCB 
DISP 



- %FPT_CLOSE 



= B$CGAURD , 

■ "BASED ( IO_BUFFER$ )" 



= FPT_ACT I VATE_CG , 
= STATIC, 
= M$CG, 
= YES ) ; 



= FPT_CGCTL_CG, 
= M$CG, 

= VLP_CGCP_SPECIAL ) 



= FPT_CLOSE_CG, 
- STATIC, 
= M$CG ) ; 

= FPT_CLOSE_DELETE, 

= M$PR I NT , 

= RELEASE ) ; 



= FPT_CLOSE_ INPUT, 



116 - DISP = SAVE ) ; 

117 - 

118 - %FPT_EVENT 

119 - ( FPTN - FPT_EVENT , 

120 - UENTRY - EVENT_HANDLER ) ; 

121 - 

122 - %FPT_GETDCB 

123 - ( FPTN - FPT_GETDCB, 

124 - DCBNAME = VLP_NAME_DCB , 

125 - DCBNUM = DCB_NUM ) ; 

126 - 

127 - %FPT_INT 

128 - ( FPTN = FPT_I NT , 

129 - UENTRY - I NTERRUPTJHANDLER ) ; 

130 - 

131 - %FPT_OPEN 

132 - ( FPTN = FPTOPEN_CG, 

133 - STCLASS = CONSTANT, 

134 - ACCT = VLPACCT, 

135 - ASN - COMGROUP, 

136 - AU = YES, 

137 - CTG = YES, 

138 - DCB = M$CG, 

139 - EXIST = OLDFILE, 

140 - FUN = CREATE, 

141 - NAME = VLPNAME, 

142 - QISS = YES, 

143 - SCRUB - YES, 

144 - SETSTA = VLPSETSTA_AU ) ; 

145 - 

146 - %FPT_OPEN 

147 - ( FPTN - FPTOPEN_SPECIAL, 

148 - STCLASS = CONSTANT, 

149 - ACCT - VLPACCT, 

150 - ASN = COMGROUP, 

151 - DCB = M$SPECIAL, 

152 - FUN - UPDATE, 

153 - NAME = VLPNAME, 

154 - SCRUB = YES, 



= VLPSETSTA_SPECIAL 



162 - 

163 - 

164 - 

165 - 

166 - %FPT_OPEN 



( FPTN 
ASN 
EXIST 
FUN 
NAME 
ORG 
SCRUB 



( FPTN 
ASN 
DCB 
FUN 
NAME 
ORG 
SCRUB 



■ FPT_OPEN_INPUT, 

■ FILE, 

■ NEWFILE, 

■ CREATE, 

- VLP_NAME_PR I NT , 

■ CONSEC, 

■ YES ) ; 



= FPT_OPEN_OUTPUT, 

- FILE, 

= M$PR I NT , 
= IN, 

= VLP_NAME_PR I NT , 
= CONSEC, 

- YES ) ; 



176 

177 

178 

179 

180 

181 

182 

183 • 

184 

185 

186 

187 



( FPTN 
BUF 
DCB 
EVENT 
STATION 
WAIT 



%FPT_READ 



( FPTN 
BUF 
DCB 

STATION 



- %FPT_READ 



( FPTN 
BUF 
DCB 



■ FPT_READ_CG, 
■■ I Q_BUFFER , 

■ M$CG, 

- %PR I NT_READ_EVENT , 

■ VLP_STATION, 

■ NO ) ; 



■ FPT_READ_SPEC I AL , 

■ IO_BUFFER, 
• M$SPECIAL, 

■ VLP_STATION_SPECIAL ) 



■ FPT_READ_OUTPUT, 

■ PR I NT_BUFFER , 

■ MJPRINT ) ; 



194 - %FPT_RELDCB 

195 - ( FPTN = FPT_RELDCB ) ; 

196 - 

197 - %FPT_WAIT 

198 - ( FPTN - FPTWA I T_ASECOND , 

199 - STCLASS = CONSTANT, 

200 - UNITS = 1 ) ; 

201 - 

202 - %FPT_WRITE 

203 - ( FPTN = FPT_WRITE_CG, 

204 - STCLASS = STATIC, 

205 - BUF = PR I NT_BUFFER , 

206 - DCB - M$CG, 

207 - STATION = VLP_STAT I ON_TERM ) ; 

208 - 

209 - %FPT_WRITE 

210 - ( FPTN = FPT_WRITE_INPUT, 

211 - BUF - I 0_BUFFER ) ; 

212 - 

213 - %VLP_CGCP 

214 - ( FPTN = VLP_CGCP_OUTSYM, 

215 - CONMSG = YES, 

216 - DCBCONAU = NO, 

217 - DCBCOWVA = YES, 

218 - MINPG = 4, 

219 - RAS = YES, 

220 - TERMCONAU = NO, 

221 - TERMCONNAU = NO ) ; 

222 - 

223 - %VLP_CGCP 

224 - ( FPTN - VLP_CGCP_SPECIAL, 

225 - CONMSG = NO ) ; 

226 - 

227 - %VLP_NAME 

228 - ( FPTN - VLP_NAME_DCB, 

229 - LEN = 31 ) ; 

230 - 

231 - %VLP_NAME 

232 - ( FPTN = VLP_NAME_PR I NT , 



233 - LEN = 31 ) ; 

234 - 

235 - %VLP_NAME 

236 - ( FPTN = VLPNAME , 

237 - STCLASS = CONSTANT, 

238 - NAME - ' I NTERNALS_CG ' ) ; 

240 - %VLP_ACCT 

241 - { FPTN = VLPACCT, 

242 - STCLASS = CONSTANT 

243 - /* 

244 - ,ACCT = 'LJSHOST' 

245 - */ 

246 - ) ; 

247 - 

248 - %VLP_SETSTA 

249 - ( FPTN = VLPSETSTA_AU, 

250 - STCLASS = CONSTANT, 

251 - MYSTAT ION = ' AU ' ) ; 

252 - 

253 - %VLP_SETSTA 

254 - ( FPTN = VLPSETSTA_SPECIAL, 

255 - STCLASS - CONSTANT, 

256 - MYSTAT I ON = 'SPECIAL' ) ; 

257 - 

258 - %VLP_STATION 

259 - ( FPTN = VLP$STATION, 

260 - STCLASS = BASED ) ; 

261 - 

262 - %VLP_STATION 

263 - ( FPTN = VLP_STATION ) ; 

264 - 

265 - %VLP_STATION 

266 - ( FPTN - VLP_STATION_SPECIAL, 

267 - EOF NONE = YES, 

268 - MSGTYP = 'PRINT ' ) ; 

269 - 

270 - %VLP_STATION 

271 - ( FPTN - VLP_STAT I ON_TERM ) ; 



272 - 

273 - %VLP_STATION 

274 - ( FPTN = VLP_STATION_DCB ) ; 

275 - 

276 - %XUG_GETCMD 

277 - ( NAME - XUGGETCMD , 

278 - STCLASS - CONSTANT ) ; 

279 - 

280 - %EJECT ; 

281 - /* 

282 - Set break control. 

283 - *l 

284 - 

285 - CALL M$ I NT ( FPT_I NT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

286 - 

287 - M$CG$ = DCBADDR ( DCBNUM ( M$CG ) ) ; 

288 - M$PRINT$ = DCBADDR ( DCBNUM ( M$PR I NT ) ) ; 

289 - M$SPECIAL$ = DCBADDR ( DCBNUM { M$SPECIAL ) ) ; 

290 - 

291 - /* 

292 - Create a new comgroup and modify its control parameters. 

293 - The first CGCTL specifies CONMSG=NO so the SPECIAL station can connect 

294 - without requiring activation. After that, another CGCTL is done specifying 

295 - the normal parameters that we should use. 

296 - */ 

297 - 

298 - CALL M$OPEN ( FPTOPEN_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

299 - CALL MSCGCTL ( FPT_CGCTL_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

300 - CALL M$OPEN ( FPTOPEN_SPEC I AL ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

301 - FPT_CGCTL_CG.CGCP_ = VECTOR ( VLP_CGCP_OUTSYM ) ; 

302 - CALL MSCGCTL ( FPT_CGCTL_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

303 - 

304 - /* 

305 - Set event control . 

306 - */ 

307 - 

308 - CALL MSEVENT ( FPT_EVENT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

309 - 

310 - /* 



311 - Start the first no-wait read. 

312 - */ 

313 - 

314 - CALL M$READ ( FPT_READ_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

315 - 



316 - /* 

317 - Start normal operation of getting PRINT files and printing them if possible. 

318 - */ 

319 - 

320 - DO WHI LE %YES# ; 

321 - 

322 - DO INHIBIT ; 

323 - DO WHILE EVENTS . PR I NT_COMP ; 

324 - CALL PROCESS_READ_EVENT ; 

325 - EVENTS.PRINT_COMP = %NO# ; 

326 - IO_BUFFER = ' ' ; 

327 - CALL M$READ ( FPT_READ_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

328 - END ; 

329 - IF ( VLP_STAT I ON_TERM. STATION* -= ' ' ) THEN DO ; 

330 - CALL PREPARE_PR I NT_RECORD 

331 - WHENRETURN DO ; 

332 - CALL M3WR I TE ( FPT_WRITE_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

333 - END ; 

334 - END ; ELSE DO ; 

335 - CALL M$WAIT ( FPTWA I T_ASECOND ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

336 - END ; 

337 - END ; 



338 - 

339 - END ; 

340 - 

341 - %EJECT ; 

342 - PREPARE_PR I NT_RECORD : PROC ALTRET ; 

343 - 

344 - /* 

345 - Puts a record in the buffer to send to the "printer", if we have any files 

346 - that are ready to be printed. 

347 - 

348 - »/ 

349 - 



350 - /* 

351 - 

352 - If there isn't a print file currently open, then try to find one and open 

353 - it. ALTRETURN if none exist. 

354 - 

355 - */ 

356 - 

357 - IF ( CUR_PR I NTF I LE < 0 ) THEN DO ; 

358 - CALL GET_PR I NTABLE_ I NDEX ( CUR_PR I NTF I LE ) ; 

359 - IF ( CUR_PR I NTF I LE < 0 ) THEN DO ; 

360 - ALTRETURN ; 

361 - END ; ELSE DO ; 

362 - CALL CONCAT ( VLP_NAME_PR I NT . NAME# . 

363 - 'PRINT: ' , 

364 - PR I NT_F I LES . NAME_EXT ( CUR_PR I NTF I LE ) ) ; 

365 - CALL INDEX ( I , 

366 - ' ' , 

367 - VLP_NAME_PR I NT . NAME* , 

368 - 0 ) ; 

369 - VLP_NAME_PR I NT . L# = I ; 

370 - CALL M$OPEN ( FPT_OPEN_OUTPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

371 - END ; 

372 - END ; 

373 - 

374 - /* 

375 - Put a record in the buffer. When at EOF, send a formfeed and delete 

376 - the f i le. 

377 - */ 

378 - 

379 - CALL M$READ ( FPT_READ_OUTPUT ) 

380 - WHENALTRETURN DO ; 

381 - IF ( B$TCB$- > B$TCB . ALT$- > B$ALT . ERR . CODE = %E$EOF ) THEN DO ; 

382 - PR I NT_BUFFER = B I NASC ( %FORM_FEED ) ; 

383 - FPT_WRITE_CG.BUF_.BOUND = 0 ; 

384 - CALL MSCLOSE ( FPT_CLOSE_DELETE ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ■ 

385 - PR I NT_F I LES. NAME. STAT I ON ( CUR_PR I NTF I LE ) = ' ' ; 

386 - CUR_PR I NTF I LE 1 ; 

387 - RETURN ; 

388 - END ; ELSE DO ; 



389 - CALL ERROR_EX I T ; /* DOES NOT RETURN */ 

390 - END ; 

391 - END ; 

392 - FPT_VVRITE_CG.BUF_.BOUND = M$PR I NT$- > F$DCB . ARS# - 1 ; 

393 - 

394 - RETURN ; 

395 - 

396 - END PREPARE_PR I NT_RECORD ; 

397 - 

398 - %EJECT ; 

399 - PROCESS_READ_EVENT : PROC ; 

400 - 



401 - /* 

402 - The message just read could be an AU event or a record to be written into 

403 - one of the print files being created. Take care of it appropriately. 

404 - */ 

405 - 

406 - DCL EOF BIT ( 1 ) ; 

407 - 

408 - IF ( M$CG$->F$DCB.LASTSTA$->VLP$STATION.MSGTYP# = %AU_MESSAGE ) THEN DO ; 

409 - DO CASE BJCGAURD . EVENT ; 

410 - 

411 - /* 

412 - This is a new DCB station. This station needs to be activated so 

413 - that it can start shoveling data into the comgroup. An entry is 

414 - then built in the print file table containing the station name and 

415 - file extension, along with a non-zero DCB number. This number 

416 - signifies that this print file is not complete (it can't be printed 

417 - yet). The DCB number is also necessary when writing records to the 

418 - file. 

419 - */ 

420 - 

421 - CASE ( %CG_DOPN# ) ; 

422 - VLP_STAT I ON_DCB. STATION* = B$CGAURD . STAT I ON ; 

423 - FPT_ACTIVATE_CG.STATION_ = VECTOR ( VLP_STAT ION_DCB ) ; 

424 - CALL M$ACT I VATE ( FPT_ACT I VATE_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

425 - CALL GET_NEW_ INDEX ( IDX ) ; 

426 - PR I NT_F I LES . NAME . STAT I ON ( IDX ) = B$CGAURD . STAT ION ; 

427 - EXTENSION = EXTENSION + 1 ; 



428 - CALL BINCHAR ( PR I NT_F I LES . NAME . EXTENS I ON ( IDX ), 

429 - EXTENSION ) ; 

430 - CALL M$GETDCB ( FPT_GETDCB ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END 

431 - PR I NT_F I LES . DCB_NUM ( IDX ) = DCB_NUM ; 

432 - CALL CONCAT ( VLP_NAME_PR I NT . NAME* , 

433 - 'PRINT: ' , 

434 - PR I NT_F I LES . NAME_EXT ( IDX ) ) ; 

435 - CALL INDEX ( I , 

436 - ' ' , 

437 - VLP_NAME_PR I NT . NAME* , 

438 - 0 ) ; 

439 - VLP_NAME_PR I NT . L# - I ; 

440 - FPT_OPEN_INPUT.V.DCB* = DCB_NUM ; 

441 - CALL M$OPEN ( FPT_OPEN_l NPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; EN[ 

442 - 

443 - /* 

444 - This event signifies that the DCB station is finished writing data 

445 - into the comgroup and is going away. The records in the comgroup 

446 - that haven't been processed yet are read by the SPECIAL station 

447 - using WAIT IO and EOFNONE and wr i tten to the pr int f i le. The 

448 - print file is then closed and the DCB number in the print file table 

449 - is set to zero to signal that this file is ready to print. 

450 - 

451 - The reason that the DCB stations must be activated upon connection 

452 - to the comgroup is now apparent - if this closing station irrmediately 

453 - reconnected and started writing records, we would put the new data 

454 - is this old print f i le. 

455 - */ 

456 - 

457 - CASE ( %CG_DCLS# ) ; 

458 - CALL GET_STAT I ON_ I NDEX ( B$CGAURD . STAT ION , 

459 - IDX ) ; 

460 - IF ( IDX >= 0 ) THEN DO ; 

461 - VLP_STATION_SPECIAL.STATION# - PR I NT_F I LES . NAME . STAT ION { IDX ) ; 

462 - FPT_yVRITE_INPUT.V.DCB* = PR I NT_F I LES .DCB_NUM ( IDX ) ; 

463 - EOF = %NO# ; 

464 - DO WH I LE NOT EOF ; 

465 - CALL M$READ ( FPT_READ_SPEC I AL ) 

466 - WHENALTRETURN DO ; 



467 - IF ( B$TCB$- > B$TCB . ALTS- >B$ALT . ERR .CODE = %E$EOF ) THEN DO ; 

468 - EOF = %YES# ; 

469 - END ; ELSE DO ; 

470 - CALL ERROR_EX I T ; /* DOESN'T RETURN */ 

471 - END ; 

472 - END ; 

473 - IF NOT EOF THEN DO ; 

474 - FPT_WRITE_INPUT.BUF_.BOUND = M$SPEC I AL$- > F$DCB . ARS# - 1 ; 

475 - CALL M$WRITE ( FPT_WR I TE_I NPUT ) WHENALTRETURN DO ; CALL ERROR EXIT ■ END 

476 - END ; 

477 - END ; 

478 - FPT_CLOSE_INPUT.V.DCB# = PR I NT_F I LES . DCB_NUM ( IDX ) ; 

479 - CALL M$CLOSE ( FPT_CLOSE_l NPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

480 - FPT_RELDCB.V.DCB# = PR I NT_F I LES .DCB_NUM ( IDX ) ; 

481 - CALL M$RELDCB ( FPT_RELDCB ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ■ 

482 - PR I NT_F I LES . DCB_NUM ( IDX ) = 0 ; 

483 - END ; 

484 - 

485 - /* 

486 - A ten 

487 - keep 

488 - */ 

489 - 

490 - CASE ( %CG_TCON* ) ; 

491 - VLP_STATION_TERM. STATION* = B$CGAURD . STAT ION ; 

492 - FPT_ACT I VATE_CG. STATION, - VECTOR ( VLP_STAT I ON_TERM ) ; 

493 - CALL M$ACT I VATE { FPT_ACT I VATE_CG ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

494 - 

495 - /* 

496 - A terminal station, "printer", just disconnected. Save the print 

497 - file if it's only partially printed and blank the terminal name so 

498 - we don't try to print any files. 

499 - */ 

500 - 

501 - CASE ( %CG_TDSC# ) ; 

502 - IF ( VLP_STATION_TERM. STATION* = B$CGAURD . STAT ION ) THEN DO ; 

503 - VLP_STAT I ON_TERM. STATION* - ' ' ; 

504 - IF M$PRINT$->F$DCB.FCD* THEN DO ; 

505 - FPT_CLOSE_INPUT.V.DCB# = DCBNUM ( M$PR I NT ) ; 



506 - CALL M$CLOSE ( FPT_CLOSE_l NPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

507 - END ; 

508 - END ; 

509 - 

510 - /* 

511 - Someone just typed break, at the terminal. Deactivate the station 

512 - and close a partially printed file so it can be reprinted. 

513 - •/ 

514 - 

515 - CASE ( %CG_TBRK# ) ; 

516 - FPT_ACT I VATE_CG. STATION. = VECTOR ( VLP_STAT I ON_TERM ) ; 

517 - CALL M$DEACT I VATE ( FPT_ACT I VATE_CG ) WHENALTRETURN DO ; CALL ERRORJEXIT ; END ; 

518 - VLP_STATION_TERM. STATION* - ' ' ; 

519 - IF M$PRINT$->F$DCB.FCD# THEN DO ; 

520 - FPT_CLOSE_INPUT.V.DCB# = DCBNUM ( M$PR I NT ) ; 

521 - CALL M$CLOSE ( FPT_CLOSE_l NPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

522 - END ; 

523 - CASE ( ELSE ) ; 

524 - /* 

525 - Ignore the other possible AU events. 

526 - */ 

527 - END ; 

528 - 

529 - END ; ELSE DO ; 

530 - /* 

531 - Th i s i s a record to bewritten to a print file. 

532 - */ 

533 - CALL GET_STAT I ON_ I NDEX ( M$CG$- > F$DCB . LASTSTAS- > VLP$STAT ION . STAT I ON# , 

534 - |DX ) ; 

535 - IF ( IDX »= 0 ) THEN DO ; 

536 - FPT_WRITE_INPUT.V.DCB# = PR I NT_F I LES . DCB_NUM ( IDX ) ; 

537 - FPT_WRITE_INPUT.BUF_.BOUND - M$CG$- > F$DCB . ARS# - 1 ; 

538 - CALL MSWRITE ( FPT_WR I TE_I NPUT ) WHENALTRETURN DO ; CALL ERROR_EX I T ; END ; 

539 - END ; 

540 - END ; 

541 - 

542 - RETURN ; 

543 - 

544 - END PROCESS_READ_EVENT ; 



545 - 

546 - %EJECT ; 

547 - GET_NEW_ INDEX : PROC ( IDX ) 
548 

549 • 

550 • 

551 - 

552 - */ 

553 - 

554 - DCL IDX SB I N ; 

555 - 

556 - DCL I UBIN ; 

557 - 

558 - 

559 - I = 0 ; 

560 - DO WHILE ( I <= PR I NTNUM ) AND ( PR I NT_F I LES . NAME . STAT ION (!)-=•'); 

561 - |=| + 1; 

562 - END ; 

563 - 

564 - IF ( I = PR I NTNUM ) AND ( PR I NTNUM < 100 ) THEN DO ; 

565 - PR I NTNUM = PR I NTNUM + 1 ; 

566 - IDX = I ; 

567 - END ; ELSE IF ( I < PR I NTNUM ) THEN DO ; 

568 - IDX = I ; 

569 - END ; ELSE DO ; 

570 - IDX = -1 ; 

571 - END ; 

572 - 

573 - RETURN ; 

574 - 

575 - END GET_NEW_ INDEX ; 

576 • 

577 • 

578 ■ 

579 • 

580 • 

581 • 

582 • 

583 • 



I 



584 - 

585 - DCL IDX SB IN ; 

586 - 

587 - DCL I UBIN ; 

588 - 

589 - 

590 - 1=0; 

591 - IDX 1 ; 

592 - DO WHILE ( I <= PR I NTNUM ) AND ( IDX 1 ) ; 

593 - IF ( PR I NT_F I LES . NAME . STAT I ON ( I )-='') AND ( PR I NT_F I LES . DCB_NUM ( I ) = 0 ) THEN DO 

594 - IDX = I ; 

595 - END ; 

596 - |=| + 1 ; 

597 - END ; 

598 - 

599 - RETURN ; 

600 - 

601 - END GET_PR I NTABLE_I NDEX ; 

602 - 

603 - %EJECT ; 

604 - GET_STAT I ON_ I NDEX : PROC ( STATION, IDX ) ; 

605 - 

606 - /* 

607 - Get the index of the given station. -1 is returned if it doesn't exist. 



612 ■ 
613 

614 • 

615 ■ 

616 - I = 0 ; 



CHAR ( 8 ) 
SB IN ; 



IDX = -1 ; 

DO WHILE ( I <= PRINTNUM ) AND ( IDX = -1 ) ; 

IF ( STATION = PR I NT_F I LES. NAME. STAT I ON ( I ) ) AND ( PR I NT_F I LES . DCB_NUM ( I ) -= 0 ) THEN D 

IDX = I ; 
END ; 

1 = 1 + 1; 



623 - 

624 - 

625 - 

626 - 

627 - 

628 - 

629 - 

630 - 

631 - 

632 - 

633 - 

634 - 

635 - 

636 - 

637 - 

638 - 

639 - 

640 - 

641 - 

642 - 

643 - 

644 - 

645 - 

646 - 

647 - 

648 - 

649 - 

650 - 

651 - 

652 - 

653 - 

654 - 

655 - 

656 - 

657 - 

658 - 

659 - 

660 - 



END ; 
RETURN ; 
END GET_STAT I ON_ I NDEX 



!ROR_EXIT : PROC ; 

IF ( VLP_STATION_TERM. STATION* -= ' ' ) THEN DO ; 

FPT_ACT I VATE_CG. STATION. = VECTOR ( VLP_STAT ION_TERM ) ; 

CALL M$DEACT I VATE ( FPT_ACT I VATE_CG ) WHENALTRETURN DO ; 
END ; 

CALL XUG$CLOSE_DCBS ( XUGGETCMD ) ; 
CALL M$MERC ; 
CALL M5EXIT ; 



END ERROR_EX I T 



END OUTSYM_AU 



NAME: I NTERRUPT_HANDLER 

PURPOSE: Takes care of interrupts caused by typing break at the AU's 

termi na I . 

DESCRIPTION: Closes all DCB ' s and exits. 



% INCLUDE CP_6 ; 
% INCLUDE CP_6_SUBS ; 
% INCLUDE XU_MACRO_C 
% INCLUDE XUG_ENTRY ; 



I 




%XUG_GETCMD 



( NAME 
STCLASS 



= XUGGETCMD , 
- CONSTANT ) 



665 - 

666 - %EJECT ; 

667 - CALL XUG$CLOSE_DCBS ( XUGGETCMD ) ; 

668 - CALL M$EXIT ; 

669 - 

670 - END I NTERRUPT_HANDLER ; 

671 - 

672 - %EOD ; 

673 - EVENT_HANDLER : PROC ASYNC ; 

674 - 

675 - /* 

676 - NAME: EVENT_HANDLER 

677 - PURPOSE: Takes care of events caused by IO comp I 

678 - DESCRIPTION: Sets the appropriate flags and returns. 

679 - */ 

680 - 

681 - 

682 - % INCLUDE CP_6 ; 

683 - % INCLUDE CP_6_SUBS ; 

684 - 

685 - %B$TCB ; 

686 - 

687 - %B$^A/IO 

688 - ( STCLASS = "BASED ( B$IWIO$ )" ) ; 



689 
690 
691 



%EQU 
%EQU 



PR I NT_READ_EVENT = 1001 
CONSOLE_READ_EVENT= 1002 




694 



DCL 
DCL 
DCL 



B$WVIO$ 
B$TCB$ 
EVENTS 



PTR ; 

PTR SYMREF ; 
SYMREF , 

BIT ( 1 ) UNAL. 
BIT ( 1 ) UNAL, 
BIT ( 1 ) UNAL, 
BIT ( 36 ) , 
BIT ( 36 ) ; 



2 PR I NT_COMP 
2 CONSOLE_COMP 
2 BAD_COMP 



2 ERR 
2 TYC 



701 - 

702 - %EJECT ; 

703 - DO INHIBIT ; 



704 - B$NMO$ = B$TCB$->B$TCB.STK$ ; 

705 - DO CASE ( BSWVIO.EVID ) ; 

706 - CASE ( %PR I NT_READ_EVENT ) ; 

707 - EVENTS.PRINT_COMP - %YES# ; 

708 - CASE ( %CON SOL E_READ_E VENT ) ; /• not currently implemented »/ 

709 - EVENTS. CONSOLE_COMP = %YES# ; 

710 - CASE ( ELSE ) ; 

711 - EVENTS. BAD_COMP = %YES# ; 

712 - END ; 

713 - EVENTS. ERR = B$NMO.ERR ; 

714 - EVENTS. TYC = B$WVIO.TYC ; 



715 - END ; 

716 - 

717 - RETURN ; 

718 - 

719 - END EVENT_HANDLER ; 



17:34 AUG 29 '85 I NT_CGLAB_S I 2 







/*M* INT_CGEX_SI2 intern 


als class comgroup example - SI2 o 


2 




DCB_PR I NT : 


PROC MAIN ; 










/* 

NAME : 


DCB_PR 


INT 








PURPOSE : 


Cop i es 


the file spec i f i ed to 


the OUTSYM 






DESCRIPT 


ON: The DCB station opens to the 


comgroup us 








name . 


1 1 opens the print f i 




9 


_ 




" ! I NT_ 


CGLAB_2. (fid)" and wr 


tes those r 


10 


- 


* / 




















1? 
1^ 
















% I NCLUDE 


CP_6 ; 






14 
1^ 




% I NCLUDE 


CP 6 SUBS ; 










% I NCLUDE 


B ERRORS C ; 






Ifi 




% I NCLUDE 


XUX$ I NTERFACE_M ; 




17 
1R 




% I NCLUDE 


B$JIT ; 






1Q 




DCL 


B$TCB$ 


PTR SYMREF ; 








DCL 


B$JIT$ 


PTR SYMREF ; 




91 




DCL 


EOF 


BIT ( 1 ) STATIC IN 


T ( 'O'B ) 






DCL 


I 0_BUFFER 


CHAR ( 200 ) STATIC 




^ 




DCL 


JUNK 


CHAR ( 12 ) STATIC 








DCL 


M$CG 


DCB ; 








DCL 


M$CG$ 


PTR ; 




26 




DCL 


M$PR I NT 


DCB ; 




27 


_ 


DCL 


M$PRINT$ 


PTR ; 




28 


- 




POS1 


UBIN ; 




29 












30 




DCL 


XUX$GETL I NE 


ENTRY ( 1 ) ALTRET 




31 




DCL 


XUX$CLEANUP 


ENTRY ALTRET ; 




32 












33 




%B$ALT ; 








34 












35 




%B$7CB ; 








36 
37 




%F$DCB ; 
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38 - 



39 - %FPT_CLOSE 

40 - ( FPTN 

41 - STCLASS 

42 - DCB 

43 - 

44 - %FPT_CLOSE 

45 - ( FPTN 

46 - STCLASS 

47 - DCB 

48 - 

49 - %FPT_FID 

50 - ( FPTN 

51 - ACCT 

52 - ASN 

53 - NAME 

54 - PASS 

55 - RES 

56 - RESULTS 

57 - SN 

58 - V\£N 

59 - 

60 - %FPT_OPEN 

61 - ( FPTN 

62 - STCLASS 

63 - ACCT 

64 - ASN 

65 - DCB 

66 - FUN 

67 - NAME 

68 - SCRUB 

69 - SETSTA 

70 - 

71 - %FPT_OPEN 

72 - ( FPTN 

73 - STCLASS 

74 - ACCT 

75 - ASN 

76 - DCB 



FPTCLOSE_CG, 
CONSTANT , 
M$CG ) ; 



FPTCLOSE_PR I NT , 
CONSTANT , 
M$PR I NT ) ; 



FPT_F I D_PR I NT , 
VLP_ACCT_PRINT, 
JUNK, 

VLP_NAME_PR I NT , 

JUNK, 

JUNK, 

JUNK, 

JUNK, 

JUNK ) ; 



FPTOPEN_CG, 
CONSTANT , 
VLPACCT , 
COMGROUP , 
M$CG, 
UPDATE , 
VLPNAME , 
YES, 

VLP_SETSTA_DCB ) ; 



FPTOPEN_PR I NT , 
CONSTANT , 
VLP_ACCT_PRINT, 
FILE, 
M$PR I NT , 



I 



77 - FUN = IN, 

78 - NAME = VLP_NAME_PR I NT , 

79 - ORG - CONSEC, 

80 - SCRUB - YES ) ; 

81 - 

82 - %FPT_READ 

83 - ( FPTN = FPT_READ_PR I NT , 

84 - BUF = I 0_BUFFER , 

85 - DCB = M$PR I NT ) ; 

86 - 

87 - %FPT_WRITE 

88 - { FPTN = FPT_\A«ITE_CG, 

89 - BUF = IO_BUFFER , 

90 - DCB = M$CG. 

91 - STATION = VLPSTATION_AU ) ; 

92 - 

93 - %VLP_ACCT 

94 - ( FPTN = VLPACCT, 

95 - STCLASS = CONSTANT 

96 - /* 

97 - ,ACCT = 'LJSHOST' 

98 - */ 

99 - ) ■ 

100 - 

101 - %VLP_ACCT 

102 - ( FPTN = VLP_ACCT_PRINT ) ; 

103 - 

104 - %VLP_NAME 

105 - ( FPTN = VLPNAME , 

106 - STCLASS = CONSTANT, 

107 - NAME = I NTERNALS_CG ' ) ; 

108 - 

109 - %VLP_NAME 

110 - ( FPTN = VLP_NAME_PR I NT ) ; 

111 - 

112 - %VLP_SETSTA 

113 - ( FPTN = VLP_SETSTA_DCB ) ; 



114 - 

115 - %VLP_STATION 



116 - ( FPTN - VLPSTATION_AU, 

117 - STCLASS = CONSTANT, 

118 - ANYDCB = YES. 

119 - MSGTYP = 'PRINT ' ) ; 

120 - 

121 - %XUX$PARAM_NO_PARSE 

122 - ( NAME = XUX_CCBUF, 

123 - STCLASS = STATIC, 

124 - BUFFER = IO_BUFFER, 

125 - DISP_ONLY - YES ) ; 

126 - 

127 - %EJECT ; 

128 - M$CG$ = DCBADDR ( DCBNUM ( M$CG ) ) ; 

129 - M$PRINT$ = DCBADDR ( DCBNUM ( M$PR I NT ) ) ; 

130 - 

131 - /* 

132 - Use SYSID as station name. 

133 - */ 

134 - 

135 - CALL BINCHAR ( VLP_SETSTA_DCB . MYSTAT I ON# , 

136 - B$JIT$->B$JIT. SYSID ) ; 

137 - 

138 - /* 

139 - Get the name of the file to print out of the CCBUF and open 

140 - */ 

141 - 

142 - DO UNTIL ( XUX_CCBUF . CMD_LEN > 0 ) ; 

143 - CALL XUX$GETL I NE ( XUX_CCBUF ) ALTRET ( XI T ) ; 

144 - END ; 

145 - CALL XUX$CLEANUP ; 

146 - CALL INDEX ( POS1 , 

147 - ' ) ' , 

148 - IO_BUFFER , 

149 - 1 ) ; 

150 - FPT_F ID_PR I NT . TEXTF I D_ - VECTOR ( SUBSTR ( IO BUFFER, 

151 - 1 - 

152 - POS1 - 1 ) ) ; 

153 - CALL M$F I D ( FPT_F I D_PR I NT ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

154 - CALL M$OPEN ( FPTOPEN_PR I NT ) ALTRET ( REPORT_ERROR_AND_EX I T ) 



157 - Open the comgroup. 

158 - */ 

159 - 

160 - CALL M$OPEN { FPTOPEN_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

161 - 

162 - /* 

163 - Read the messages from the print file and send them to the AU statior 

164 - */ 

165 - 

166 - DO WHILE NOT EOF ; 

167 - 

168 - CALL M$READ ( FPT_READ_PR I NT ) 

169 - \AHENALTRETURN DO ; 

170 - IF ( B$TCB$- > B$TCB . ALTS- >B$ ALT . ERR . CODE = %E$EOF ) THEN DO ; 

171 - EOF = %YES# ; 

172 - END ; ELSE DO ; 

173 - GOTO REPORT_ERROR_AND_EX I T ; 

174 - END ; 

175 - END ; 

176 - IF NOT EOF THEN DO ; 

177 - FPT_WRITE_CG.BUF_.BOUND = M$PR I NT$- > F$DCB . ARS# - 1 ; 

178 - CALL MSWRITE { FPTJAK I TE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

179 - END ; 



183 - CALL MSCLOSE ( FPTCLOSE_CG ) ALTRET ( REPORT_ERROR_AND_EX I T ) ; 

184 - CALL M$CLOSE ( FPTCLOSE_PR I NT ) ALTRET ( REPORT_ERROR_AND_EX I T 

185 - CALL MSEXIT ; 

187 - REPORT_ERROR_AND_EX I T : ; 

188 - IF M$CG$->F$DCB.FCD# THEN DO ; 

189 - CALL M$CLOSE ( FPTCLOSE_CG ) ; 

190 - END ; 

191 - IF M$PRINT$->F$DCB.FCD# THEN DO ; 

192 - CALL MSCLOSE ( FPTCLOSE_PR I NT ) ; 

193 - END ; 



194 - CALL M$MERC ; 

195 - 

196 - XIT: ; 

197 - CALL M$EXIT ; 

198 - 

199 - END DCB_PR I NT ; 
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LAB #5 [COMMAND PROCESSORS] 

SCENARIO: 

- You managed to hide the System Support 
Manual but the head of the computer science 
department has just read the System Programmer 
Guide. He's absolutely sure that the computer 
science department can benefit from the security 
a command program could provide. Who are you 
to argue? As an exercise, you decide to write 
your own simple command program to learn the 
"ins and outs" of command program creation. 
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PROBLEM: 

1. Make a command program, called INTCPnn 
where nn Is your group number. 

This command program will have several 
functions. 

a. It will prompt with a '§'. 



i 



LAB #5 [COMMAND PROCESSORS] 

b. It will recognize when control-Y or break 
is hit. If control-Y is struck, it will prompt 
with '§§'. If break is struck, it will "ignore" 
it (i.e. just return). When the is issued, 
it will accept two responses: DELTA or GO. (Do 
not use the parser, just accept th string and do 
a sized compare against a literal). 



LAB #5 [COMMAND PROCESSORS] 

c. You will write a small program, called, 
INTCPTEST. This program will simply wait 
(M$READ from the terminal) for you to strike 
control-Y so that you can test step b. Your 
command program will have to know how to call 
this program from you account. 
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d. Your command program will also accept "PCL" 
as a command, and call up PCL.:SYS when typed in. 
This command will only be legal at jobstep (the 

'§' prompt, not the '§§' prompt). 

e. Your command program will also accept "IBEX" 
as a command, and will exit to IBEX when "IBEX" 
is typed in. This command is only legal at 
jobstep. 
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2. Install your command program with SPIDER. 

3. Check it out. 
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INTERNALS CLASS 

COMMAND PROCESSORS LAB 

1) Make a command processor, called: 

INTCPnn 

where 

nn is your group number. 



This command processor will have several functions: 

a) It will prompt with a '#'. 

b) It will recognize when control-Y or break is hit. If control-Y 
is struck, it will prompt with '##'. If break is struck, it will 
"ignore" it... i.e. just return. When the '##' is issued, it will 
accept two responses: DELTA or GO. (Do not use the parser, just 
accept the string and do a sized compare against a literal). 

c) You will write a small program, called 
INTCPTEST . 

This program will simply wait (M$READ from the terminal) for you to 
strike control-Y so that you can test step b. Your command program 
will have to know how to call this program from your account. 

d) Your command program will also accept "PCL" as a command, and 
call up PCL . : SYS when typed in . This command will only be legal at 
jobstep (the '#' prompt, not the '##' prompt). 

e) Your command program will also accept " IBEX" as a command, and 
will exit to IBEX when "IBEX" is typed in. This command is only 
legal at jobstep. 



2) Install your command program with SPIDER. 



3) Check it out. 



LAB 5 
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1 - ! JOB V\£N=UPSTA I RS 

2 - !RES MEM=300,TIME=2 

3 - !PL6 LAB5_CP_SI OVER LAB5_CP_OU6 ( LS , SR (.: L I BRARY ), SCHEMA) 

4 - (LINK LAB5_CP_OU6 OVER I NTCP (MAP (VALUE , NAME ), NOSH , SYS ; 

5 - UNSAT= : L I B_SYSTEM . : SYS , TCB=3 , PR I V ( J I T ) ) 

6 - !PL6 LAB5_CPTEST_S I OVER LAB5_CPTEST_OU6 ( LS , SR ( .: L I BRARY) .SCHEMA) 

7 - ! L I NK LAB5_CPTEST_OU6 OVER I NTCPTEST 

8 - ! SPIDER 

9 - DEL I NTCP 

10 - IN I NTCP, CP FROM I NTCP . CKVvHOST 

11 - L I NTCP 

12 - END 

13 - !C LAB5_JCL TO LP(K) 
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1 - U40CPTEST: PROC MAIN; 

2 - % INCLUDE CP_6; 

3 - %B$TCB; 

4 - %B$ALT; 

5 - % INCLUDE B_ERRORS_C; 

6 - DCL M$SI DCB; 

7 - DCL B$TCB$ PTR SYMREF ; 

8 - %FPT_READ ( FPTN=FPT$READ , STCLASS=CONSTANT ,DCB=M$S I ,BUF=BUFFER) ; 

9 - DCL BUFFER CHAR (120) STATIC; 

10 - 

11 - REREAD: ; 

12 - CALL M$READ( FPTSREAD) 

13 - WHENALTRETURN DO; 

14 - IF B$TCB$ -> B$TCB.ALT$ -> B$ALT . ERR . CODE - %E$EOF 

15 - THEN GOTO XIT; 

16 - ELSE GOTO REREAD; 

17 - END; 

18 - GOTO REREAD; 



19 
20 
21 



XIT: 



CALL M$EXIT; 
END U40CPTEST; 
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1 - U40CP: PROC MA I N ; 

2 - % INCLUDE CP_6; 

3 - %INCLUDE B$JIT; 

4 - 

5 - DCL B$JIT$ PTR SYMREF; 

6 - DCL B$TCB$ PTR SYMREF; 

7 - %FPT_READ ( FPTN=FPT$READ , STCLASS=CONSTANT , DCB=M$UC) ; 

8 - %FPT_READ ( STCLASS=AUTO) ; 

9 - %FPT_VWITE (FPTN=\M?ITE_SYNERR, STCLASS=CONSTANT , BUF=SYNERR , DCB=M$UC)- 

10 - DCL SYNERR CHAR(O) CONSTANT I N I T ( ' U40CP can ' ' t do that.')- 

1 1 - %FPT_PROMPT ( FPTN=PROMPT_S I NGLE , PROMPT-S I NGLE_SPLAT , STCLASS=CONSTANT , VFC=YES ) ■ 

12 - %FPT_PROMPT ( FPTN=PROMPT_DOUBLE , PROMPT=DOUBLE_SPLAT , STCLASS=CONSTANT , VFC-YES)- 

13 - DCL S I NGLE_SPLAT CHAR(2) CONSTANT INIT('p#')- 

14 - DCL DOUBLE_SPLAT CHAR(3) CONSTANT I N I T ( ' p## ' ) ; 

15 - %FPT_CPEXIT (FPTN=FPT$CPEXIT, STCLASS=CONSTANT ) ; 

16 - %FPT_CPEXIT (STCLASS=" " ) ; 

17 - %VLP_ACCT (FPTN=ACCT_SYS, ACCT= ' : SYS ', STCLASS=CONSTANT ) • 

18 - %VLP_NAME ( FPTN=NAME_DELTA , NAME- ' DELTA ' , STCLASS=CONSTANT ) ■ 

19 - %VLP_NAME ( FPTN=NAME_PCL , NAME= ' PCL ' , STCLASS=CONSTANT ) ; 

20 - %VLP_NAME ( FPTN=NAME_U40CPTEST , NAME= ' U40CPTEST ' , STCLASS-CONSTANT ) ■ 

21 - %VLP_NAME ( FPTN=NAME_ I BEX , NAME= ' I BEX ' , STCLASS=CONSTANT ) ; 

22 - %FPT_ERRMSG ( FPTN=FPT$ERRMSG , STCLASS=CONSTANT , SOURCE=PASS, OUTDCB1=M$UC) ■ 

23 - %FPT_ERRMSG ( STCL ASS-AUTO ) ; 

24 - DCL BUFFER CHARM20); 

25 - %F$DCB; 

26 - %B$TCB; 

27 - %B$ALT; 

28 - 

29 - FPT_CPEXIT = FPT$CPEXIT; FPT_CPEX I T . V_ = VECTOR ( FPT_CPEX I T . V) ; 

30 - FPT_READ = FPT$READ; FPT_READ . V_ = VECTOR (FPT_READ.V) ; 

31 - FPT_READ . BUF_ = VECTOR (B$ J I T . CCBUF ) ; 

32 - FPT_ERRMSG = FPT$ERRMSG; FPT_ERRMSG . V_ = VECTOR ( FPT_ERRMSG . V ) ; 

33 - FPT_ERRMSG . BUF_ = VECTOR (BUFFER); 

34 - IF B$JIT.CPFLAGS1 & %CP_JSTEP# THEN DO; 

35 - CALL M$PROMPT { PROMPT_S I NGLE ) ; 

36 - READ_S I NGLE : CALL MSREAD ( FPT_READ ) 

37 - WHENALTRETURN DO; 



38 - FPT_ERRMSG.CODE_ = VECTOR (B$TCB$- >B$TCB . ALTS- > B$ALT . ERR ) ; 

39 - CALL MSERRMSG ( FPT_ERRMSG ) ; 

40 - GOTO IBEX; 

41 - END; 

42 - B$JIT.CCARS = DCBADDR (DCBNUM(M$UC) ) - > F$DCB . ARS# ; 

43 - DO SELECT ( SUBSTR (B$ J I T . CCBUF , 0 , B$ J I T . CCARS ) ) ; 

44 - SELECT ( ' PCL ' ) ; 

45 - FPT_CPEXIT.ACCT_ = VECTOR (ACCT_SYS); 

46 - FPT_CPEXIT.NAME_ = VECTOR (NAME_PCL); 

47 - 

48 - SELECT ( ' IBEX' ) ; 

49 - IBEX: FPT_CPEX I T . ACCT_ = VECTOR (ACCT_SYS); 

50 - FPT_CPEXIT.NAME_ = VECTOR ( NAME_I BEX ) ; 

51 - 

52 - SELECT ( ' U40CPTEST ' ) ; 

53 - FPT_CPEXIT.NAME_ = VECTOR ( NAMEJJ40CPTEST ) ; 

54 - FPT_CPEXIT.ACCT_ = VECTOR ( B $ J I T . ACCN ) ; 

55 - FPT_CPEXIT.ACCT_ = VECTOR (B$ J I T . ACCN ) ; 

56 - 

57 - SELECT (ELSE ) ; 

58 - CALL MSWRITE (WR I TE_SYNERR ) ; 

59 - GOTO READ_S INGLE ; 

60 - END; 

61 - CALL M$CPEXIT (FPT_CPEXIT) 

62 - WHENALTRETURN DO; 

63 - FPT_ERRMSG.CODE_ = VECTOR ( B$TCB$- > B$TCB . ALT$- >B$ALT . ERR ) ; 

64 - CALL MSERRMSG ( FPT_ERRMSG ) ; 

65 - FPT_CPEXIT = FPTSCPEXIT; FPT_CPEX I T . V_ = VECTOR ( FPT_CPEX I T . V ) ; 

66 - GOTO READ_S INGLE; 

67 - END; 

68 - END; ELSE DO; 

69 - CALL MSPROMPT ( PROMPT_DOUBLE ) ; 

70 - READ_DOUBLE: CALL MS READ (FPT_READ) ALTRET (QUIT); 

71 - B$ J IT. CCARS = DCBADDR ( DCBNUM ( MSUC ) ) - > F SDCB . ARS# ; 

72 - DO SELECT ( SUBSTR (BS J I T . CCBUF , 0 , B$ J I T . CCARS ) ) ; 

73 - SELECT ( 'DELTA' ) ; 

74 - FPT_CPEXIT.DEBUG_ = VECTOR ( NAME_DELTA ) ; 

75 - FPT_CPEXIT.V.CONT# = ' 1'B; 

76 - 



77 - SELECT ( 'GO' ) ; 

78 - FPT_CPEXIT.V.CONT# = 'I'B; 

79 - 

80 - SELECT ( 'QUIT' ) ; 

81 - QUIT: FPT_CPEXIT.V.QUIT# = '1'B; 

82 - 

83 - SELECT(ELSE) ; 

84- CALL M$WRITE(\AftlTE_SYNERR) ; 

85 - FPT_CPEXIT.V.CONT# = ' 1'B; 

86 - END; 

87 - CALL MSCPEXIT (FPT_CPEXIT) 

88 - WHENALTRETURN DO; 

89 - FPT_ERRMSG.CODE_ = VECTOR (B$TCB$- > B$TCB . ALT$- > BSALT . ERR ) ; 

90 - CALL M$ERRMSG ( FPTJERRMSG ) ; 

91 - FPT_CPEXIT = FPTSCPEXIT; FPT_CPEX I T . V_ = VECTOR ( FPT_CPEX I T . V ) ; 

92 - GOTO READ_DOUBLE ; 

93 - END; 

94 - END; 



95 - END; 



LAB 6 
ASSIGNMENT 



LAB #6 [FPRGS] 

SCENARIO: 

- You have just gotten a prerelease of COO CP-6. 
Being a prerelease, everything doesn't quite 
work - one thing is ANLZ doesn't know how to 
ANLZ running FEPs yet. You call LADC and are 
told in order to look at running FEPs, you 
need to do A, B, and C - click. 



LAB #6 [FPRGS] 



PROBLEM - PART I 

Write a host program that starts an FPRG, 
reads three pieces of information from the 
FPRG - the FEP number, the NODENAME, and 
the SYSID of user number 1, and writes the 
values out. 



LAB #6 [FPRGS] 

The FPRG must M$CVM onto BOBCAT data to get the 
FEP number, the NODENAME, and the pointer to the 
user tables. The pointer to the user tables can 
then be used to get the SYSID of user number 1. 

Run your programs under DELTA, displaying the 
pointer to BOBCAT data and the pointer to the 
user tables. 



LAB #6 [FPRGS] 

PROBLEM - PART II 

Write a host program what creates three windows 
on your terminal. The host program will read a 
character string from one window and write the 
character string to an FPRG. The FPRG will write 
the reverse character string out in the second 
window. The third window is for DELTA. 



LAB #6 [FPRGS] 

Run your programs under DELTA, displaying the 
character string before it is sent to the FPRG, 
after the FPRG reads it from the host program, 
and the reverse character string before the 
FPRG writes it out. 



HINT: See M$LDEV and VLP__WINDOW in the Host 
Monitor Services Manual. 



LAB #6 [FPRGS] 

HINT: See Appendix B of the Fep Programming 
Concepts Manual for a sample FPRG and host 
program. 

HINT: The structure for BOBCAT data is in 
G$BOBCAT_M.:LIBRARY. 

HINT: The structure for the user tables, G$USER, 
is in GH_SCHD_M.ZZINT 
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CP-6 INTERNALS CLASS 
FPRGS LAB 
Part I 

Write a host program that starts an FPRG, reads three pieces of 
information from the FPRG - the FEP number, the NODENAME , and the 
SYSID of user number 1 , and writes the values out . 

The FPRG must M$CVM onto BOBCAT data to get the FEP number, the 
NODENAME, and the pointer to the user tables. The pointer to the 
user tables can then be used to get the SYSID of user number 1. 

Run your programs under DELTA, displaying the pointer to 
BOBCAT data and the pointer to the user tables. 

HINT: See Appendix B of the FEP Programming Concepts Manual for 
a sample FPRG and host program. 

HINT: The structure for BOBCAT data is in G$BOBCAT_M. : LIBRARY. 

HINT: The structure for the user tables, G$USER, is in GH_SCHD_M . ZZINT 

- HINT: The pointer to the user tables cannot be used directly. 



Part II 

Write a host program that creates three windows on your terminal. The 
host program will read a character string from one window and write 
the character string to an FPRG. The FPRG will write the reverse 
character string out in the second window. The third window is 
for DELTA. 

Run your programs under DELTA, displaying the character string before 
it is sent to the FPRG, after the FPRG reads it, and the reverse 
character string before the FPRG writes it out. 



HINT: See M$LDEV and VLP_WINDOW in the Host Monitor Services Manual. 
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1 - 'JOB \ASN=UPSTAIRS 

2 - ! RES MEM=300,TIME=2 

3 - !PL6 LAB6_HOST_S I 1 OVER LAB6_HOST_OU6 1 ( LS , SR (.: L I BRARY ). SCHEMA ) 

4 - ! L I NK LAB6_HOST_OU61 OVER LAB6 : H1 

5 - !PL6 LAB6_FPRG_SI1 OVER LAB6_FPRG_OU61 ( LS . SR (.: L I BRARY) , SCHEMA) 

6 - ! FEPL I NK LAB6_FPRG_OU6 1 OVER LAB6 : F 1 

7 - !PL6 LAB6_HOST_S I 2 OVER LAB6_HOST_OU62 ( LS , SR (.: L I BRARY) , SCHEMA) 

8 - ! L I NK LAB6_HOST_OU62 OVER LAB6 : H2 

9 - !PL6 LAB6_FPRG_SI2 OVER LAB6_FPRG_OU62 ( LS , SR (.: L I BRARY) , SCHEMA ) 

10 - ! FEPL INK LAB6_FPRG_OU62 OVER LAB6 : F2 

11 - !C LAB6_JCL TO LP(K) 
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1 - LAB6_FPRG_SI 1 : PROC MAIN; 

2 - % INCLUDE LCP_6; 

3 - % INCLUDE GSBOBCAT_M; 

4 - %G$BOBCAT(FPTN=G$BOBCAT,STCLASS="BASED(G$DS4$) " ) • 

5 - % INCLUDE GM_V I RTUAL_E ; 

6 - % INCLUDE GH_SCHD_M ; 

7 - %G$USER(FPTN="G$USER(0:0) " ,STCLASS=BASED) ; 

8 - DCL GSDS4S PTR SYMREF READONLY; 

9 - DCL G$BOBCATPTR UBIN(32) CONSTANT I N I T ( %GM_BOBCAT_BASE ) ; 

10 - DCL G$ BOBCATS REDEF G$BOBCATPTR PTR; 

11 - DCL M$HOST DCB; 

12 - %FPT_CVM(USERSEG=USEG, FROMSEG=FSEG , PAGES=256); 

13 - %VLP_SEGMENT ( FPTN=USEG , PAGES=256); 

14 - %VLP_SEGMENT ( FPTN=FSEG , PAGES=256); 

15 - %FPT_WRITE (FPTN=HOST_WRITE, BUF-=HOST_BUF , DCB=M$HOST , STCLASS=CONSTANT ) ; 

17 - DCL 1 HOST_BUF STATIC, 

18 - 2 FEP# UBIN( 16) , 

19 - 2 SYSID REDEF FEP# UBIN(16), 

20 - 2 NODENAME CHAR{8); 

21 - DCL USRTS PTR; 

22 - DCL USRT_ADDR REDEF USRT$ UBIN(32); 

23 - DCL SEGOFFSET UB I N ; 

24 - DCL NILPTR UBIN(32) CONSTANT INIT(O); 

25 - DCL NILS REDEF NILPTR PTR; 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



USEG. BASES = GSDS4S ; 
FSEG. BASES = G S BOBCAT $ ; 
CALL MSCVM (FPT_CVM); 
HOST_BUF.FEP# = GSBOBCAT . FEP# ; 
HOST_BUF . NODENAME = GSBOBCAT . NODENAME ; 
CALL MSWRITE ( HOST_VW I TE ) ; 
USRTS = GSBOBCAT.USRTS; 
FPT_CVM.V.TYPE = %G_CVM_MON#; 
IF USRT_ADDR > (1024*64) 

THEN SEGOFFSET = MOD ( USRT_ADDR , 1024*64); 
ELSE SEGOFFSET = MOD ( USRT_ADDR , 1024*4); 



38 - FSEG. BASES = PINCFW(NIL$, USRT_ADDR - SEGOFFSET); 

39 - CALL M$CVM (FPT_CVM); 

40 - HOST_BUF.SYSID = P I NCRW(G$DS4$ , SEGOFFSET) -> G$USER . SYS I D ( 1 ) ; 

41 - CALL M3WRITE ( HOSTJA« I TE ) ; 

42 - 

43 - XI T: 

44 - CALL M$EXIT; 

45 - END LAB6_FPRG_S I 1 ; 
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1 - LAB6_FPRG_SI2: PROC MAIN; 

2 - % INCLUDE LCP_6; 

3 - DCL M$ME DCB; 

4 - DCL M$HOST DCB; 

5 - DCL I UBIN; 

6 - DCL SIZE UBIN; 

7 - %FPT_READ(FPTN=HOST_READ.BUF=CHAR_BUF,DCB=M$HOST,STCLASS=CONSTANT) ; 

8 - %FPT_VWITE(FPTN=TERMINAL_WRITE,BUF=REV_CHAR_BUF,DCB=M$ME,STCLASS=CONSTANT) ■ 

9 - %FPT_WRITE (FPTN=HOST_V\fllTE, BUF=CHAR_BUF , DCB=M$HOST, STCLASS=CONSTANT ) ■ 



10 
1 1 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



X IT : 

CALL M$EXIT; 

END LAB6_FPRG_S I 2 ; 



DCL CHAR_BUF<0:80) CHAR{1) CALIGNED STATIC; 

DCL CHAR_BUF1(0:80) REDEF CHAR_BUF UBIN BYTE CALIGNED; 

DCL CHAR_BUF 2 REDEF CHAR_BUF CHAR(81) CALIGNED; 

DCL REV_CHAR_BUF ( 0 : 79 ) CHARM) CALIGNED STATIC; 



CALL M$READ ( HOST_READ ) ALTRET (XI T ) ; 
S I ZE = CHAR_BUF 1(0); 
DO I = 0 TO SIZE-1 ; 



END; 

CALL M$\AfllTE ( TERM I NAL_V\fl I TE ) ; 
CHAR_BUF2 - ' ' ; 
CHAR_BUF 1(0) = S I ZE ; 
DO I = 0 TO 79; 



END; 

CALL M$\A/RITE ( HOST_WR I TE ) ; 



CHAR_BUF ( I +1 ) - REV_CHAR_BUF ( I ) ; 



REV_CHAR_BUF ( S I ZE- I ) = CHAR_BUF ( I +1 ) ; 
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1 - LAB6_H0ST_S I 1 : PROC MA I N ; 

2 - % INCLUDE CP_6; 

3 - DCL B$JIT$ PTR SYMREF; 

4 - %INCLUDE B$JIT; 

5 - DCL FPRG DCB; 

6 - DCL TEMP UBIN STATIC; 

7 - DCL 1 TEMPI REDEF TEMP, 

8 - 2 * BIT(20) , 

9 - 2 Y1 UBIN (8) UNAL, 

10 - 2 Y2 UBIN(8) UNAL; 

11 - DCL FPRG_BUF(0:9) UBIN BYTE CALIGNED STATIC INIT(0*0); 

12 - DCL 1 BUF STATIC, 

13 - 2 * CHAR(5) I N I T { ' FEP#= ' ) , 

14 - 2 FEP# CHAR(3) , 

15 - 2 * CHAR(11) INITC NODENAME= ' ) , 

16 - 2 NODENAME (0:7) CHAR(1), 

17 - 2 NODENAME 1(0:7) REDEF NODENAME UBIN BYTE UNAL; 

18 - DCL 1 BUF 1 STATIC, 

19 - 2 * CHAR(6) INIT( 'SYSID-' ) , 

20 - 2 SYSID CHAR(3) ; 

21 - DCL I UBIN; 

22 - %FPT_\Af!ITE (DCB=M$UC , FPTN=UC_WR I TE , BUF=BUF ) ; 

23 - %FPT_OPEN (DCB=FPRG , ORG=FPRG , RES='UC02', FPRG=VLP_FPRG ) ; 

24 - %VLP_FPRG ( NAME= ' LAB6 : F 1 ' ) ; 

25 - %FPT_READ ( FPTN=FPRG_READ , BUF=FPRG_BUF ,DCB=FPRG ) ; 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



DO I = 0 TO 7; 



CALL M$WRITE (UC_WRITE); 
CALL M$READ (FPRG_READ); 



CALL B I NCHAR ( BUF . FEP# , TEMP); 



CALL MSOPEN (FPT_OPEN); 
CALL M$READ (FPRG_READ); 
TEMP = 0; 



TEMP1.Y1 = FPRG_BUF(0); 
TEMP1.Y2 = FPRG_BUF(1); 



END; 



BUF . NODENAME 1(1) = FPRG_BUF ( I +2 ) ; 



TEMP = 0; 

TEMPI .Y1 = FPRG_BUF{0) ; 
TEMP1.Y2 = FPRG_BUF(1); 
CALL B I NCHAR ( BUF 1 . SYS I D , TEMP); 
UC_WR I TE . BUF_ = VECTOR ( BUF 1 ) ; 
CALL M$\ARITE (UCJAfllTE); 
END LAB6_HOST_S I 1 ; 
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1 - LAB6_H0ST_S I 2 : PROC MAIN; 

2 - % INCLUDE CP_6; 

3 - DCL B$JIT$ PTR SYMREF ; 

4 - %INCLUDE B$JIT; 

5 - %F$DCB; 

6 - DCL FPRG DCB; 

7 - DCL I UBIN; 

8 - DCL SIZE UBIN; 

9 - DCL CHAR_BUF ( 0 : 79 ) CHAR CALIGNED STATIC I N I T( 1 '); 

10 - DCL CHAR_BUF 1 REDEF CHAR_BUF CHAR (80) CALIGNED; 

11 - DCL FPRG_BUF(0:80) CHAR ( 1 ) CALIGNED STATIC; 

12 - DCL FPRG_BUF1 (0:80) REDEF FPRG_BUF UBIN BYTE CALIGNED; 

13 - %FPTJM?ITE (DCB=M$UC,FPTN=UCJAfllTE,BUF=CHAR_BUF) ; 

14 - %FPT_\AR I TE ( DCB-FPRG , FPTN=FPRG_WR I TE , BUF=FPRG_BUF ) ; 

15 - %FPT_OPEN (DCB=FPRG , ORG=FPRG , RES= ' UC02 ' , FPRG=VLP_FPRG ) ; 

16 - %VLP_FPRG ( NAME = ' LAB6 : F2 ' ) ; 

17 - %FPT_READ ( FPTN=FPRG_READ , BUF=FPRG_BUF ,DCB=FPRG) ; 

18 - %FPT_READ ( FPTN=UC_READ , BUF=CHAR_BUF ,DCB=M$UC) ; 

19 - %FPT_LDEV( FPTN=LDEV_FPRG , STREAMNAME= ' UC02 ' ,WI NDCW=VLP_WI NDCW_FPRG ) ; 

20 - %VLPJWINDOW(FPTN=VLPJA/INDCW_FPRG,FWINDCW='UC01 ' , LENGTH=6 ,WI DTH=80 , 

21 - POSITION=TOP) ; 

22 - %FPT_LDEV( FPTN=LDEV_DELTA , STREAMNAME= ' UC99 ' ,WI NDCW=VLP_WI NDCW_DELTA) ; 

23 - %VLPJA/INDCW(FPTN=VLPJWINDCW_DELTA,FWINDCW='UC01 ' , LENGTH=8 ,WI DTH=80 , 

24 - POSITION=BOTTOM) ; 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



CALL M$LDEV ( LDEV_FPRG ) ; 
CALL MSLDEV ( LDEV_DELTA ) ; 
CALL M$OPEN (FPT_OPEN); 
CALL M$READ ( UC_READ ) ; 
SIZE = DCBADDR ( DCBNUM(M$UC) ) 
FPRG_BUF1(0) = SIZE; 
DO I = 1 TO SIZE+1 ; 



END; 

CALL MSWRITE ( FPRG_WR I TE ) ; 
CALL M$READ (FPRG_READ); 
SIZE = FPRG_BUF 1(0) ; 



FPRG_BUF ( I ) = CHAR_BUF ( I 



-> F$DCB.ARS#; 



1); 



38 - CHAR_BUF 1 - ' ' ; 

39 - DO I = 1 TO SIZE+1 ; 

40 - CHAR_BUF ( I - 1 ) = FPRG_BUF ( I ) ; 

41 - END; 

42 - CALL M$\ARITE ( UC_V\f? I TE ) ; 



43 - END LAB6_HOST_S I 2 ; 



LAB 7 
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C01 - ANLZ Command Summary 
C02 - REC Command - FEPs 

C03 - Monitor Trap Example 
C04 - Handler Trap Example 

C05 - LCP6 Trap Numbers 

C06 - MCL Codes 

C07 - ASDTs 

C08 - Users HJIT 

C09 - Low Real Memory 

CIO - Status Register 
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ANLS Commands for FEPs 



. Combinations of dumps/ANLZ 

- COO dump / COO ANLZ 

- COO dump / Bootleg ANLZ 

- C01 dump / C01 ANLZ 

ANLZ FEP Commands - Available on COO 



ADD Identifies channel context for FMT command to display. 

BOB [CAT] Displays the contents of the base of the BOBCAT data segment 

CHN[TBL] Produces formatted display of a channel table entry 

DROP The opposite of ADD 

DU[MP] Produces hex dump of specified area of FEP memory 

FMT Displays the context for a channel 

ISA Formats an Interrupt Save Area 

LCT Dumps the Line Control Table for a channel 

MLCP Produces a hex dump of specified MLCP memory 

PL [UGH] Displays the chain of calls in an AUTO Stack 

RECtOVERY] Formats the contents of the FEP Recovery Buffer 

SPY Displays all users currently on the FEP 

TSA Formats a Trap Save Area 



Additional Commands with Bootleg ANLZ or C01 ANLZ: 

ACCtRES] Displays the contents of the Account Resource Table. 

CHANNELS Displays channel ids and channel types 

DCBfS] Displays DCBs for selected user(s). 

ECCB Displays the ECCB for selected user(s). 

INT [CON] Displays the contents of the Interrupt Table. 

JIT Displays selected items from the JIT for selected user(s). 

LDCT Displays the LDCT. 

MEMtORY] Displays memory usage information 

ROUTE Displays network routiong info 

SFItLES] Displays the contents of the Shared File Table. 

SPY Displays selected FEP users. 

STAT[US] Displays memory usage for selected user(s). 

TCB Displays the Task Control Block for selected user(s). 

USRtT] Displays the contents of the User Table. 



C01 ANLZ cannot be used with COO systems as there is a slight change 
to the DCB structure. 

To get the latest and greatest Bootleg ANLZ, BEAM both ANLZ and 
ANLZ_FPRG from account ZZZTEST @L66A to your site. 

You cannot always believe the info from the MEMORY and STAT commands 
when they are used on-line. They are not valid for COO in any event. 
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REC Command 

- FCG-nnnn-3 See System Support Manual - Appendix B 

GHT-trap no-3 - Monitor Trap 
GHH-trap no-3 - Handler Trap 

- S: status register See G$ STATUS_REG 

The important thing here is the Level; 

.04 - inhibit level - could be monitor or handler 

.06 through .OA - its XDELTA 

.OC through .3B - Its a handler - use INTCON command 

.3D - Real Time Clock 

. 3E - Scheduler Level 

.3F - User Execution 

To find all the active levels, look at low real memory 

by saying DU .3020,4 - see G$LOW_MEM 

To find the active domain, look in the user's HJIT at .507E 
See GSUHJIT. 

%G_DMN_MON_SVC 0 %G_DMN_MON 4 

%G_DMN_DB_SVC 1 %G_DMN_DB 5 

%G_DMN_INT_SVC 2 %GJDMN_INT 6 

%G_DMN_USR_SVC 3 %G_DMN_OSR 7 

- ISM2 Interrupt Save Mask2 - See GSISM2 

The interesting field is the NATSAP: 
2 - Handler at interrupt level 
1 - User or User Service 
0 - Idle Loop 

- TSA Trap Save Area - must determine the valid frame if COO. 

Check Status Register to see what level was running 
If monitor - default SYM of M:FEP. :SYS is the right one 
Say PL .4000 to see TSTACKU 

If Handler - use INTCON command to find user number (SPY CUN if C01) 

- use SPY to get M$LM fid 

- use JIT to get SLIB number 

- use SFILE to get library fid 

If Program Counter is >= .60000 use SYM library fid 
If Program Counter is < .60000 use SYM M$LM fid 
Say REC again to get valid P$, etc. (or say EV .addr) 
Say PL .A0000 for CUN to see Handler's Auto 

If COO or Bootleg ANLZ you must get B3 and R3 from here; 

the B3 and R3 in the following ISA display will be as destroyed 

by the software to build the TSA. 



If TRAP: is .01 or .63 - its an MCL 

- R3 has the MCL code - see attached list 

- B3 has the address of FPT -see manual 

If TRAP: is .02 through .IF - its a hardware trap 
See list 

If TRAP: is .2F through .62 - its a software pseudo trap 
See list 

If TRAP: is .20 through .2E - its a bug 

- Current User: 

If not running at level .3F this is not necessarily the 
current user, but instead the user that was running when 
we got the interrupt. 

This is the user that ANLZ displays on subsequent commands 
that specify CUN on COO, however. C01 gets it right. 

ANLZ doesn't understand CUN until after you have said REC 
if using COO or Bootleg ANLZ. 

A couple of useful addresses: .6351 contains CUN 

.6352 and .6253 contain CU$ 
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DRIBBLE ON @ 18:21 08/21/85 
! ANLZ A099 
ANLZ C01 

:DFC01A099 for GHT-001304-3 at 13:24 AUG 06 '85 on LADC L66B 
KR is to blame 

Nodes: L6XII L66B 

L6XII (node 12) Selected 
L6XII -REC 

Screech Code: 

GHT-M01304-0 LCP6 Abort - Disabled Too Long 



TSA @.50FF: 

Timer Runout 

I: .0402 INST: .0000 Z: .0080 
A$: .0 P: .25F99 B3: .452D R3: . 3A S: .4004 

Trap IC: GMASLGP+.4D9 
ISA: 

P: .25F99 S: .6004 CHN: . FFFF ISM1 : . FFFF ISM2: .9103 
Interrupted address: GMA$LGP+.4D9 



B Registers 
R Registers 
M Registers 



506E 9D10 452D C0040 9003E 90000 
FFFF B29 3A 593 598 0 

FFOO FFOO FFOO FFOO FFOO FFOO 



ASV$: .503E TSAP$ : .0 NATSAP: 1 I: .0002 T$ : .45FA 

CI: .0000 RDBR$: .0 

TSA @.50B6: 

MCL - Monitor Service Request. 
TRAP: 63 TSAL$ : .0 I: . 3F04 INST: .0001 Z: .8000 

A$: .2004F P: .20050 B3 : .10288 R3 : .902 S: . 003F 

Trap IC: GFMSMCL+ . 18 



ISA: 

P: .20050 S: .0000 CHN: .0000 ISM1 : . FFFF ISM2: .8103 

Interrupted address : GFMSMCL+ . 18 



B Registers 
R Registers 
M Registers 



FF00 0 0 0 0 0 0 

TSAP$: .0 NATSAP: 0 I: .0000 T$ : . AOOFA 



CI: .0000 RDBR$ : .0 

L6XII -DUA .10288,8 F CUN 



010298 OOOC 0000 0000 0001 0001 029E 

L6XII 

L6XII -SPY am 

Usr# Identification Sysid CPU M$LM 

G .5 LLAHOST, 104AVERY 11 0:00 QGDS . LLAHOST 

L6XII -JIT CUN 

JIT for User* .05 Sysid 11 Mode: Ghost Prog entry: MSSETFP LLAHOST, 104AVERY 

DLL .0100 DUL .0102 PLL .0200 PUL .0201 LLL .0600 LUL .07FF MAXMEM 511 

PCD 3 PCP 2 PCL 0 PCDS(non-IO) 1 PCDS(IO) 0 
PCC 11 PCROS 1 PCCQ 0 PCHHJIT 0 PCDDS 0 

PRIV. ACTIVE: .00000000 AUTH: .00300C4F PRC : .00000000 PPRIV .00000000 

MCLs: 6 Steps: 1 CVM_REAL : .00000000 SPROC: 5 SLIB 2 DB: 0 

RNST .0000 FRS .0000 XLIMFLG .00 STEPCC .00 RUNF .04 JUNK .0000 

Interrupts: MAX 5 CURR 0 SPEAK 0 JPEAK 0 Rtime Clk 0 Xtime Clk 0 

JIT . ERR and JIT_FD_ALTERR 
-00000-0 
-00000-0 

L6XII -TCB CUN 

TCB for User* .05 ALTS .012C9 STK$ .012F7 AVSZ .008A CURRSZ .0000 
Altret frame at .012C9 ECC: .0063 PREVSZ: .0000 



B Registers: 
R Registers: 
M Registers: 



.003F ISM1: . FFFF ISM2: .8103 



GMM-M00611-0 That page does not belong to you. 



L6XII -ECCB CUN 
ECCB for User# .05: 

EVENTS .00000 INT$ .00000 XCONS .00000 TRAPS .00000 DBCONTROLS .00000 
FLAGS : .0000 FLTFLG : .8000 .0000 .0000 



L6XII -DCBS CUN 
DCBs for User* .05 

# DCBS FCD ORG RES NODE GEN LDCTX STRM DDEV HMIS SSNS DCBNAME 



.01 


•011A1 CLS 0 HO .00 


.00 


.0000 


.00 


.00 


. 00000 


.00000 MSDEBUG 


.02 


.011D7 OPN 0 HO .14 


.35 


.OOBF 


.01 


.00 


. 00000 


. C1CE4 M$LM 




Name: QGDS . LLAHOST 














.03 


.01215 CLS 0 UC01 .00 


.00 


.0000 


.00 


.00 


. 00000 


.00000 MSME 


.04 


.0124A OPN 0 HO .14 


.35 


.008F 


.01 


.00 


. 00000 


.C1CE4 MSHOST 


.05 


.01280 CLS 0 .00 


.00 


.0000 


.00 


.00 


. 00000 


.00000 M$DO 



L6XII 


-DU 


.5000, .3E 


F CUN 










0 


1 


2 


3 


4 


5 


6 


7 


005000 


0000 


FCOO 


85AD 


2C03 


0000 


5C00 


8000 


ACOF 


005008 


85A7 


AC05 


85A5 


5C01 


8009 


AC06 


0000 


ACOO 


005010 


8010 


AC07 


8018 


B80F 


0000 


OCOO 


0000 


OCOO 


005018 


0000 


5C00 


0000 


FCOO 0000 


FCOO 


0000 


FCOO 


005020 


85B1 


0C02 


85B4 


3001 


0000 


1000 


0000 


1000 


005028 


0000 


1000 


81EA 


30FF 


82EA 


3055 


0000 


6400 


005030 


0000 


6400 


85B6 


OCOO 


0000 


OCOO 


0000 


OCOO 


005038 


0000 


ACOO 


0000 


FCOO 


8700 


A8FF 






L6XII 


-DU 


. 503E , . 3E 


F CUN 










0 


1 


2 


3 


4 


5 


6 


7 


005038 














0000 


FCOO 


005040 


85AD 


2C03 


8175 


AC07 


8000 


ACOF 


85A7 


AC05 


005048 


85A5 


5C01 


8009 


AC06 


0000 


ACOO 


8010 


AC07 


005050 


8018 


B80F 


85B3 


OCOO 


85B3 


OCOO 


0000 


FCOO 


005058 


0000 


FCOO 


0000 


FCOO 


0000 


FCOO 


8028 


AC05 


005060 


802E 


B8F8 


0000 


B800 


0000 


B800 


0000 


B800 


005068 


85B1 


0C02 


8594 


A8FF 


8127 


B84A 


85BB 


A9FF 


005070 


0000 


FCOO 


0000 


FCOO 


817D 


ACFF 


0000 


ACOO 



005078 0000 FC00 8700 A8FF 
L6XII -SPY 

Usr# Identification 
H .1 : SYS , NODEADMN 
H .2 :SYS,HDLCX25 
H .3 :SYS,ASYNC 
G .4 LLAHOST , 104AVERY 
G .5 LLAHOST, 104AVERY 



Sysid 


CPU 


M$LM 


1 


2: 17 


NODEADMK. :SYS 


2 


5:34 


HDLCX25 . : SYS 


3 


9:51 


ASYNC. :SYS 


8 


0:00 


ANLZ FPRG. :SYS 


11 


0:00 


QGDS. LLAHOST 





FL : 


BL Sysid 


Mode State Flags / 


^sync 


DL$ 


MISC 


HMI$ 


.01 


.00 


.03 1 




H SW . 0000 


.0000 


. 00000 


. 00008E4F 


.C1B86 


.02 


.03 


.00 2 




H SW . 0000 


.0000 


. 00000 


.00008A06 


. C1B9F 


.03 


.01 


.02 3 




H SW .0000 


.0000 


. 00000 


. 00008E07 


.C1BB8 


.04 


.00 


.00 8 




G SCI . 0800 


.0000 


. 00000 


.000C1542 


. 00000 


.05 


.00 


.00 11 




G SCU . 0000 


.0000 


. 00000 


. 000C16D2 


. 00000 


# 


Sysid 


HJIT MF 


Clock UTS 


Prio 


PrioB 


USRT$ 




.01 


1 


.01C8 


0 


.0000 780101 0000 


4 


4 


.C1058 




.02 


2 


.01D3 


0 


.0000 780101 0000 


4 


4 


.C1070 




.03 


3 


.01DD 


0 


.0000 780101 0000 


4 


4 


.C1088 




.04 


8 


.058B 


0 


.0000 780101 0000 


1 


1 


-C10A0 




.05 


11 


.05A5 


0 


.0000 780101 0000 


1 


1 


.C10B8 





L6XII -SFILE 



# File Identification 


Flags 


Modtime 


Instime UC 


FRQ 


1 DELTA F . : SYS 

2 : SHARED_LCP6_SYSTEM . : SYS 

4 ANLZ FPRG. :SYS 

5 QGDS. LLAHOST 


.0800 
.4000 
.A080 
.8080 


780101 0000 
780101 0000 

781016 1214 

781017 0101 


780101 0000 1 
780101 0000 4 
850806 1223 1 
850806 1321 1 


1 
8 
3 
1 



# PGs ROS DATA PROC PP# ROS 



.000 .0000 .004B .0000 .0127 .0000 .0000 .0000 .0000 .0000 .0000 

.000 .0002 .0156 .0000 .01E9 .0000 .0000 .0000 .0000 .01EB . 02EB 

.000 .0000 .000A .0000 .0000 .059A .0000 .0000 .0000 .0000 .0000 

.000 .0000 .0002 .0000 .0000 .05B4 .0000 .0000 .0000 .0000 .0000 



L6XII -INTCON 

# TIMER TSAPS P$ I ENTRY DEV S HHJIT USR LVL FLAGS ISM1 ISM2 



.20 .0000 .00000 .094FA 00000000 0020 4000 .0000 .03 .00 .8400 0000 2000 



.21 .17E3 .00000 .094FA 

.22 .0000 .00000 .094FA 

.24 .0000 .00000 .094FA 

.25 .17E3 .00000 . 094FA 

.26 .0000 .00000 .094FA 



00020A5C 0000 4004 .81DB 
00021432 0000 4004 . 81DC 
00000000 0024 4000 .0000 
00021920 0000 4004 .81E6 
00021920 0000 4004 .81E7 



.03 .20 .C000 0000 2000 

.03 .20 .COOO 0000 2000 

.02 .00 .8400 0000 2000 

.02 .24 .COOO 0000 2000 

.02 .24 .COOO 0000 2000 



FEP Memory Utilization 

MONITOR : BIGFOOT 0 .0000 

MONITOR : Procedure and Static Data 279 .0117 

MONITOR : Cntx-TSTKM . UMHJIT , MHJIT , ROS , LRM 19 .0013 

MONITOR: BOBCAT 75 .004B 

MONITOR : DELTA- Procedure and Dyn Data Seg 83 .0053 

MONITOR : Total Dedicated Memory 456 .01C8 







USER 


COMGP 


HAND 


GHOST 


FPRGS 


:User Procedure 


0 


0 


288 


0 


FPRGS 


:User Data-Static and Dynamic 


0 


0 


495 


7 


FPRGS 


: Context-TSTACKM , ROS , UHJIT , HHJITs 


0 


0 


40 


24 


FPRGS 


: Handler Q 


0 


0 


99 


0 


FPRGS 


: DELTA-Dynamic Data 


0 


0 


0 


0 


FPRGS 




0 


0 


922 


31 


FPRGS 




.0000 


.0000 


.039A 


.001F 



TOTAL 




2048 


.0800 


TOTAL 


: Memory Dedicated by LCP-6 


456 


.01C8 


TOTAL 


: Available for FPRGs and SFILEs 


1592 


.0638 


TOTAL 


: System Shuf fable Memory 


282 


.011A 


TOTAL 


: System Non-shuf fable Memory 


380 


.017C 


TOTAL 


: Memory used by FPRGs 


953 


.03B9 


TOTAL 


: Memory for SFILE Procedure 


354 


.0162 


TOTAL 


: Memory for SFILE Data 


2 


.0002 


TOTAL 


: Memory Free - Shuf fable 


0 


.0000 


TOTAL 


: Memory Free - Non-shuf fable 


77 


.004D 


TOTAL 


: Memory Unaccounted For 


206 


.OOCE 







Max 


Phys 
Pgs 


Pro Data 


Dyn 
Pgs 


Dyn 


Con 


Ro 


Dbg 


Cct HHJT 


Identification 


Sysid Pgs 


Pgs 


Pgs 


I/O 


Pgs 


Pgs 


Pgs 


Pgs 


Pgs 


: SYS , NODEADMN 


1 


65535 


181 


68 


8 


60 


0 


11 


1 


0 


33 


0 


: SYS , HDLCT25 


2 


65535 


370 


167 


19 


89 


48 


11 


1 


0 


33 


2 


:SYS,ASYNC 


3 


65535 


371 


53 


7 


9 


255 


11 


1 


0 


33 


2 


LLAHOST, 104AVERY 


8 


511 


15 


10S 


2 


1 


0 


11 


1 


0 


0 


0 


LLAHOST, 104AVERY 


11 


511 


16 


25 


3 


1 


0 


11 


1 


0 


0 


0 



L6XII -USRT 

# FL BL Sysid Mode State Flags Async DL$ MISC HMI$ 



.01 .00 .03 1 

.02 .03 .00 2 

.03 .01 .02 3 

.04 .00 .00 8 

.05 .00 .00 11 



H SW .0000 .0000 

H SW .0000 .0000 

H SW .0000 .0000 

G SCI .0800 .0000 

G SCU .0000 .0000 



.00000 .00008E4F .C1B86 

.00000 .00008A06 . C1B9F 

.00000 .00008E07 . C1BB8 

.00000 .000C1542 .00000 

.00000 .000C16D2 .00000 





Sysid 


HJIT 


MF 


Clock 


UTS 




Prio 


PrioB 


USRT$ 


.01 


1 


.0108 


0 


.0000 


780101 


0000 


4 


4 


.01058 


.02 


2 


.01D3 


0 


.0000 


780101 


0000 


4 


4 


.01070 


.03 


3 


.01DD 


0 


.0000 


780101 


0000 


4 


4 


.01088 


.04 


8 


.058B 


0 


.0000 


780101 


0000 


1 


1 


.C10A0 


.05 


11 


.05A5 


0 


.0000 


780101 


0000 


1 


1 


.C10B8 



L6XII -PPUT 

PPUT$: .C0040 MEM_LO: .01C8 MEM_HI : .07FF 

PPUT Entry - first page .593 : 6800 0006 last page .598 : A804 0002 



L6XII -EV .593 

Deo: 1427 Oct: 2623 Hex: 593 Entdef: GD_DATA_D+ . ! 
L6XII -PL .4000 F CUN 
CW=.1AA MW=.5F0 



Frame 

Frame @ 

Frame @. 

Frame @. 

Frame @, 

Frame @. 

Frame @. 
L6XII 

004450 
004458 
004460 
004468 
004470 
004478 
004480 
004488 
004490 
004498 
0044AO 
0044A8 
0044B0 



4450 called from 
4489 called from 
44A7 called from 
44C2 called from 
44DB called from 
44E2 called from 
4534 called from 
4561 called from 
.45EE called from 
45F5 called from 



22335 (GIDSWRDUMP+ . 35) 
22A8 1 ( GIR $ INITDUMP+ .177) 
22EB6 (GIR$SCREECH+.142) 
91DA (GHTSTRAP+ . 1D9) 
90EB ( GHT$ TRAP+ . EA ) 
26B19 ( GMMSMCLS+ . 135 ) 
9A26 (GUD$MCL_HAND+ . 2E4) 
9238 ( GET $ TRAP+ . 237 ) 
9746 (GUD$MCL_HAND+.4) 
21386 (GHS$ADDUSR+.196) 



-DUA .4450..4000 F CUN 

01234567 

0038 0002 2338 0000 0000 0000 449E 0000 .8.. #8 D. . . 

4496 0000 4494 0002 235B 0498 8100 04C9 D...D...#[ I 

000E 0000 0000 0800 0006 0004 0030 0000 

0000 0800 0800 000E 0000 1184 0001 0012 

0000 0000 4451 0002 2440 0000 4451 0002 DQ..$L..DQ.. 

2476 0002 244E 0002 2561 0002 2584 0000 $v. . $N. .%a. .%. . . 

445D 0000 4466 0000 4465 0000 446D 0000 D] . .Df . .De. .Dm. . 

446E 001D 0002 2A84 0000 0000 0000 44B4 Dn * D4 

0000 44B3 0000 44B5 000E 0000 0000 0800 . .D3. .D5 

0002 2316 0000 44B4 0000 4494 1184 0000 ..#... D4..D 

449E 0000 4496 0000 4494 0002 235B 001A D...D...D. ..#[.. 

0002 2EB9 0000 0000 0000 3200 0000 0002 ...9 2 

0002 2961 016A 0800 05A8 0004 013E 403F .. )a. j .©.(... >@? 



0044B8 
0044C0 
0044C8 
0044DO 
0044D8 
0044EO 



004500 
004508 
004510 
004518 
004520 
004528 
004530 
004538 
004540 
004548 
004550 
004558 
004560 
004568 
004570 
004578 
004580 
004588 
004590 
004598 
0045A8* 
0045B0 
0045B8 
0045D8* 
O045E0 
O045E8 
0045FO 
0045F8 



0000 44B4 0000 44B3 0000 44B5 000C 3D6C . .D4 . .D3 . . D5 . . =1 

0000 44BC 0018 0000 91DD 0000 0000 0000 . .D< ] 

50FF 0000 3200 0593 0592 07FF 01C8 OOOC P. . .2 H. . 

0B66 0002 2EA6 0000 9D30 005C 0001 001F .f...»...0.\ 

0003 0000 6000 0006 0000 90EE 0000 0002 v n 

0000 50FF 0051 0002 6B1C 0000 03FA 0000 . .P..Q..k z. . 

4551 0000 4552 0002 6FCE 0002 6FCE 0002 EQ. . ER. . ON. . ON. . 

6FCF 0000 0593 OOOC OBAE 0000 0000 8115 00 

0000 0000 OCOO 0010 0007 058B 0000 8145 E 

01234567 

0594 OOOC 0B68 OOOC 1F70 OOOC OOCE 0001 h. . .p. . .N. . 

OOOF 0009 0000 0009 003E 0007 003E 0002 >...>.. 

5B0A 0000 8177 8594 A8FF OOOE 0002 001C t W..( 

0002 0002 5E2A 0000 0004 0004 001D 458D ~* E. 

0000 454B 0000 453B 0000 454A 0000 0002 . . EK . . E ; . . E J 

639E 0002 5F8D 0000 44FD 0000 9D10 0000 C..._...D} 

506E 452D 0000 44F2 002C 0000 9A29 0000 PnE-. .Dr. ,...)• . 

00F9 0000 458A 0000 0000 OCOO 0008 0000 .y. .E 

0008 0002 0000 10B8 A068 0000 458A OOOC 8 h..E... 

10B8 0000 8000 0000 0000 A08E 0000 B098 .8 0. 

0008 001B OOCE 0002 6A4F 0000 4551 0000 N..JO..EQ.. 

4552 0002 6FCE 0002 6FCE 0002 6FCF 0000 ER . . ON. . ON. . 00. . 

453F 008C 0000 923B 0000 0000 0000 50B6 E? ; P6 

0000 8292 2F9E 0000 0108 0002 0002 69EB / ik 

0000 503E 0001 028E 0000 4592 0002 0010 ..P> E 

OOOB 0000 0005 0001 029B 0002 0000 0000 

0001 0000 0000 0298 0000 0098 0002 OOOB 

0001 0288 0902 0000 50B6 3B43 26A8 0003 P6;C6f(.. 

0000 A08E 0000 B098 0000 0000 0000 0000 0 

0000 0000 0000 0000 0000 0000 0000 0000 

0000 0000 0000 0001 003F 0000 0000 0000 ? 

0003 0005 0000 0000 0000 0000 0000 0000 

0000 0000 0000 0000 0000 0000 0000 0000 

0000 0000 0007 4B58 0063 0905 0000 3B5B KX.c ;[ 

1318 0000 0000 0000 0000 0000 50B6 0000 P6. . 

0000 OOOB 0000 9926 0000 458A 0006 0000 6f. .E 

9749 0000 0000 0000 50B6 0004 0002 1389 .1 P6 

FFFF 0000 01AA 05F0 0000 0000 0000 0000 *.p 
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DRIBBLE ON @ 17:16 08/21/85 
IANLZ A090 
ANLZ C01 

:DFC01A090 for GHH-001304-3 at 18:30 AUG 05 '85 on LADC L66B 
JL is to blame 

Nodes : L6IX L66B 

L6IX (node 9) Selected 
L6IX -REC 

Screech Code: 

GHH-MO 1304-0 Handler Abort - Disabled Too Long 

Current User : . 4 TSA$ : . 50B6 

TSA @.50B6: 

Timer Runout 

.041A INST: .0001 Z: .0080 
33: .A0250 R3: . FFFF S: .402C 



.0000 CHN: .FFFF ISM1 : .FFFF ISM2: 



323A0 323A0 A0250 32B00 33AE0 33A00 A02B7 
4 16 FFFF 50 4 3 1 

FFOO FFOO FFOO FFOO FFOO FFOO FFOO 



B Registers 
R Registers 
M Registers 

ASV$: .5000 TSAP$ : .0 NATSAP: 2 I: .001 A T$ : . A07FA 

CI: .0002 RDBR$: .0 
L6IX -SPY CUN 

Usr# Identification Sysid CPU M$LM 
H .3 :SYS,ASYNC 3 56:40 ASYNC.:SYS 

L6IX -INTCON 

# TIMER TSAPS P$ I ENTRY DEV S HHJIT USR LVL FLAGS ISM1 ISM2 

-1A .0000 .00000 .094FA 00000000 001A 4000 .0000 .04 .00 .8400 0000 2000 

.IB .1801 .00000 .094FA 000246AA 0000 4004 .8202 .04 . 1A .C000 0000 2000 

-1C .0000 .00000 .094FA 000247B4 0000 4004 .8203 .04 . 1A .C000 0000 2000 

.ID .0000 .00000 .094FA 000248C2 0000 4004 .81F6 .04 . 1A .COOO 0000 2000 

.20 .0000 .00000 .094FA 00000000 0020 4000 .0000 .03 .00 .8400 0000 2000 

.21 .1802 .00000 .094FA 00020A5C 0000 4004 . 820E .03 .20 .C800 0000 2000 



. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 



094FA 
094FA 
094FA 
094FA 
094FA 
094FA 
094FA 
094FA 



00021432 
00000000 
00021920 
00021920 
00000000 
00020A9A 
00000000 
00020A9A 



0000 4004 
0024 4000 
0000 4004 
0000 4004 
0032 4000 
0000 4004 
0034 4000 
0000 4004 



,8201 . 

.0000 . 

,81F7 . 

81F8 . 

,0000 , 

86CC . 

0000 , 



.20 .C000 0000 

.00 .8400 0000 

.24 .COOO 0000 

.24 .COOO 0000 

.00 .8400 0000 

.32 .COOO 0000 

.00 .8400 0000 

.34 .COOO 0000 



2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 



005078 0002 
L6IX -JIT CUN 

JIT for User* .03 Sysid 3 Mode: Handler Prog entry: Bigfoot :SYS,ASYNC 



PUL .0234 LLL .0600 LUL .07FF MAXMEM 65535 



DLL .0100 DUL .0106 PLL . 

PCD 7 PCP 53 PCL 0 
PCC 11 PCROS 1 PCCQ 3! 

PRIV. ACTIVE: . 00300C08 AUTH: .FFFFFFFF PRC: .00000000 PPRIV .00000000 

MCLs: 58664 Steps: 1 CVM_REAL : .00000010 SPROC: 0 SLIB 2 DB: 0 

RNST .0000 FRS .0000 XLIMFLG .00 STEPCC .00 RUNF .04 JUNK .0008 

Interrupts: MAX 10 CURR 4 SPEAK 4 JPEAK 0 Rtime Clk 0 Xtime Clk 0 

JIT. ERR and JIT_FD_ALTERR 
-00000-0 
-00000-0 



2 : SHARED_LCP6_SYSTEM . : SYS 



.4000 780101 0000 780101 0000 6 10 



# PGs ROS DATA PROC PP# ROS SEG1 SEG2 SEG3 SEG4 SEG5 SEG6 SEG7 
2 .000 .0002 .018D .0000 .021A .0000 .0000 .0000 .0000 .021C .031C 

L6IX - SYM : SHARED_LCP6_SYSTEM . : SYS 



Screech Code: 
GHH-M01 304-0 Handler Abort - Disabled Too Long 



Current User: 
TSA 0.50B6: 



TSA$: .50B6 



A$: .0 P: . 6ED4D 

Trap IC: KVOSGNRPST+ . 191 
ISA: 



.041A INST: .0001 Z: .0080 
!3: .A0250 R3: . FFFF S: .4020 



P: . 6ED4D 



.0000 CHN: .FFFF ISM1 : .FFFF ISM2: .A103 



Interrupted address: KVOSGNRPST+ . 191 



B Registers 
R Registers 
M Registers 

ASV$: .5000 



CI: .0002 RDBR$: .0 
L6IX -PL .A0000 F 

CW= . 544 MW= . 7ED 



323A0 323A0 A0250 32B00 33AE0 33A00 A02B7 
4 16 FFFF 50 4 3 1 

FFOO FFOO FFOO FFOO FFOO FFOO FFOO 



NATSAP: 2 I: .001A T$ : . A07FA 



Frame 


@ 


A02B6 


called 


from 


.748 IB 


(KWSVDI +.8D7) 


Frame 


@ 


A0273 


called 


from 


. 6AC07 


(KVI$INT+.1915) 


Frame 


@ 


A0234 


called 


from 


.68DD9 


(KVI$INPCHR+-931) 


Frame 


@ 


A0210 


called 


from 


. 745E2 


(KW$VDI_+.69E) 


Frame 


@ 


A01CD 


called 


from 


. 20CB6 




Frame 


@ 


A01AE 


called 


from 


. 20AFC 




Frame 


@ 


AO 192 


called 


from 


. 20A5C 




Frame 


e 


AO 173 


called 


from 


. 6BD53 


(KVM$RCV_+.323) 


Frame 


@ 


A001C 


called 


from 


.21B15 




Frame 


@ 


AOOOF 


called 


from 


.21A28 




L6IX 




-SYM 


ASYNC. 


SYS 






L6IX 




-PL 


A0000 F .3 






CW= . 544 


MW=.7ED 








Frame 


@ 


A02B6 


called 


from 


. 7481B 


(X6A_MAUT0+. 14717) 


Frame 


@ 


A0273 


called 


from 


. 6AC07 


(X6A MAUTO+ . AB03) 


Frame 


@ 


A0234 


called 


from 


. 68DD9 


(X6A MAUT0+ . 8CD5 ) 


Frame 


@ 


A0210 


called 


from 


. 745E2 


(X6A MAUT0+.144DE) 


Frame 


@ 


A01CD 


called 


from 


. 20CB6 


(KAISINPINT+.10C) 


Frame 




A01AE 


called 


from 


. 20AFC 


(KAISINP+.AO) 


Frame 


@ 


A0192 


called 


from 


. 20A5C 


(KAI$INP+.0) 


Frame 


e 


A0173 


called 


from 


. 6BD53 


(X6A MAUTO+ . BC4F) 


Frame 


e 


A001C 


called 


from 


.21B15 


(KASSBOT+.ED) 


Frame 


e 


AOOOF 


called 


from 


.21A28 


(KASSBOT+.O) 
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LCP-6 Trap Numbers 
E$TRAP=1300 ESTRAP + G$TSA. I . TRAP* yields the following: 



Err 


TSA 






13xx 


X'xx' 


E$ or %G_ 


: ERRMSG file 


01 


01 


ESMCL 


MCL 


02 


02 


E$ TRACE 


Trace Breakpoint Trap 


03 


03 


E$NO_SIP 


Uninstalled SIP Trap 


04 


04 


E$TROT 


Wat oh Dog Timer Runout 


05 


05 


ESUNIMPL 


Unimplemented Instruction Trap 


06 


06 


E$INT_REG_OV 


Integer Register Overflow Trap 






E$S_DBZ 


SIP Divide by Zero Trap 


08 


08 


E$S_EXP_0V 


SIP Exponent Overflow Trap 


09 


09 


E$STK_UF 


Stack Underflow Trap 


10 


OA 


E$STK_OV 


Stack Overflow Trap 


12 


OC 


E$REM0TE_DESG 


Remote Data Descriptor Trap 




OD 


E$PRIV 


Privilege Violation Trap 


14 


OE 


E$MEM_PR0T 


Memory Protection Trap 


15 


OF 


E$INT_UR 


Internal Unavailable Resource Trap 


16 


10 


E$PR0G_ERR 


Program Error Trap 


17 


11 


ESINT_MBE 


Internal Memory or Bus Error Trap 


19 




ESS EXP UF 




20 


14 


E$S PROG ERR 


SIP Program Error Trap 


21 


15 


E$S SIGNIF 


SIP Significance Error Trap 


22 


16 


E$S_PRECISION 


SIP Precision Error Trap 


23 


17 


E$EXT_UR 


External (CIP or SIP) Unavailable I 


24 


18 


ESEXT MBE 


External (CIP or SIP) Memory or Bus 


25 


19 


ESC DBZ 


CIP Divide by Zero Trap 


26 


1A 


ESC SPEC 


CIP Illegal Specification Trap 


27 


IB 


E$C_CHAR 


CIP Illegal Character Trap 


28 


1C 


ESC TRUNC 


CIP Truncation Trap 


29 


ID 


ESC OV 


CIP Overflow Trap 


30 


IE 


ESCIP QLT 


CIP QLT Fault 


31 


IF 


ESSIP QLT 


SIP QLT Fault 



1347 - 1362 used to communicate to host debugger. 
1347 - 1354 reserved to reflect GJ_LCP6_M FPT code. 



47 


2F 


E$FPRG_EXIT 


FPRG 


MSEXIT. 


48 


30 


E$FPRG_ERR 


FPRG 


MS ERR. 


49 


31 


ESFPRG XXX 


FPRG 


MSXXX. 


50 


32 


E $ F PRG_LDTRC 


FPRG 


requesting MSLDTRC. 


51 


33 


ESFPRG XBREAK 


FPRG 


(FPL interpreter) MSXBREAK. 


52 


34 


E$FPRG_SCREECH 


FPRG 


MS SCREECH 


55 


37 


ESHOST INT 


FPRG 


interrupted by Host Debugger. 


56 


38 


ESFPRG EVENT 


FPRG 


event condition. 


57 


39 


ESFPRG BRK 


FPRG 


break condition. 


58 


3A 


ESFPRG XCON 


FPRG 


exit /abort condition. 


59 


3B 


ESFPRG MCLTRAP 


FPRG 


bad MCL - Entry to trap handler. 



60 3G E$DB_TIMER 

61 3D E $ F PRG_ START 

62 3E E $ F PRG_ START2 

63 3F ESMCL2 



Debugger Timer Runout event 
FPRG started via MSSETFP. 
FPRG started via MSLDTRG. 
MCL 
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Monitor service codes - FPT specified 
Sorted by $R3 value 
Service Name Code Vect# 



MSINTRET 

MSINTCON 

MSINTREL 

MS SYS 

MSXBREAK 

M$ SCREECH 

MSMAKEUSR 

MSMERC 

MSRETRY 

MSCLRSTK 

MSMERCS 

MSRETRYS 

M$AFD 

MSDRTN 

MSUNSHARE 

M$CHGUNIT 

MSRUE 

MSGDDL 

MSRELDCB 

MSTRMPRG 

MSRCHAN 

MSEXIT 

M$ERR 

MSXXX 

M$ EVENT 

M$INT 

MSXCON 

M$TRAP 

MSDBCONTROL 

MSCLOCK 

M$TRTN 

MSGDS 

M$FDS 

MSGAUTO 

MSFAUTO 

M$PDS 

MSSTRMCTL 

MSGTRMCTL 

M$ PROMPT 

MSEOM 

MSGLINEATTR 

MSSTRMATTR 

MSGTRMATTR 

MS PLATEN 

MSSTRMTAB 

MSSINPUT 



0440 
0441 
0442 
0443 
0484 
0485 
04C7 
04C9 
04CA 
04CD 
04CE 
04CF 
04D1 
04D2 
04D3 
04D5 
04D7 
0506 
0546 
0584 
0594 



08C0 
08C1 
08C2 
08C3 
08C4 
08C6 
08CC 
0902 
0903 
0904 
0905 
0907 



0985 
0986 
0987 
0988 
098A 



Sorted by 1 

Service Name 

M$AFD 

MSCHGUNIT 

MSCLOCK 

MSCLOSE 

MSCLRSTK 

MSCPEXIT 

MSCVM 

MSDBCONTROL 

MSDCLFLD 

MSDEVICE 

MSDRTN 

MSEOM 

MS ERASE 

MSERR 

MSERRMSG 

MS EVENT 

MSEXIT 

MSFAUTO 

MSFDS 

MSGAUTO 

MSGCHAN 

MSGDDL 

MSGDS 

MSGETDCB 

MSGLINEATTR 

MSGPROMPT 

MSGTRMATTR 

MSGTRMCTL 

MS INT 

MSINTCON 

MSINTREL 

MSINTRET 

MSLDTRC 

MSMAKEUSR 

MSMDFFLD 

MSMERC 

MSMERCS 

MSOPEN 

MSPDS 

MS PLATEN 

MS PROMPT 

MSRCHAN 

MS READ 

MSRELDCB 

MS RETRY 

MSRETRYS 



Code Vect# 



1541 
04CD 
1486 
0D08 
08C4 
0D8F 
0D47 
04D2 



0881 
2CD6 
08C0 
0880 
0905 
0903 
0904 
0993 
0506 
0902 
0D45 
0985 
0995 
0987 
0981 
08C1 
0441 
0442 
0440 
1483 
04C7 
118E 
04C9 
04CE 
3540 
0907 
0988 
0982 
0594 
1542 
0546 
04CA 
04CF 



MSRLSFLD 

MSSLCFLD 

M$ ERASE 

MSGCHAN 

MSGPROMPT 

MSWRSYSLOG 

MSWAIT 

MSSPRIV 

MSCVM 

M$GETDCB 

MSDEVICE 

MSDCLFLD 

MSWRTMLT 

MSMDFFLD 

MSLDTRC 

MSCPEXIT 

MSTIME 

MSCLOSE 

MSREAD 

MSWRITE 

MSERRMSG 

MSOPEN 



09CO 
0CC5 
OCDO 
0D08 
0D45 
0D47 
0D8F 
1144 
118E 
1483 
1486 
14D4 
1541 
1542 
1543 
2CD6 
3540 



MSSINPUT 

MSSLCFLD 

MSSPRIV 

MSSTRMATTR 

MSSTRMCTL 

MSSTRMTAB 

MSSYS 

MSTIME 

MS TRAP 

MSTRMPRG 

MSTRTN 

MSUNSHARE 

MSWAIT 

MSWRITE 

MSWRSYSLOG 

MSWRTMLT 

MSXBREAK 

MSXCON 

MS2XX 



0980 
098A 
0443 
14D4 
08C3 
0584 
08CC 
04D3 
0CC5 
1543 
09C0 
1144 
0484 



Code is expressed in hexidecimal . 

Number of vectors is expressed in decimal. 



Monitor service codes - no FPT specified 



1.000 M$ INTRET 0040 MSGDS 0102 

2.000 MSINTCON 0041 MSFDS 0103 

3.000 MSINTREL 0042 MSGAUTO 0104 

4.000 MSSYS 0043 MSFAOTO 0105 

5.000 MSGDDL 0106 

6.000 MSEXIT 0080 MSPDS 0107 

7.000 MS ERR 0081 MSCVM 0108 

8.000 MSXXX 0082 

9.000 MSLDTRC 0083 MSOPEN 0140 

10.000 MSXBREAK 0084 MSCLOSE 0141 

11.000 MS SCREECH 0085 MSREAD 0142 

12.000 MSCPEXIT 0086 MSWRITE 0143 

13.000 MSWRTMLT 0144 

14.000 M$ EVENT 00C0 MSGETDCB 0145 

15.000 MS INT 00C1 MSRELDCB 0146 

16.000 MSXCON 00C2 MSDEVICE 0147 

17.000 MSTRAP 00C3 

18.000 MSDBCONTROL 00C4 MS STRMCTL 0180 

19.000 MSWAIT 00C5 MSGTRMCTL 0181 

20.000 MSCLOCK 00C6 MSPROMPT 0182 



21.000 MSMAKEUSR 
22.000 MSSENV 
23.000 MSMERC 
24.000 M$ RETRY 
25.000 MSRENV 
26.000 MSTRTN 
27.000 MSCLRSTK 
28.000 MSMERGS 
29.000 M$RETRYS 
30.000 MSSPRIV 
31.000 MSAFD 
32.000 MSDRTN 
33.000 MSUNSHARE 
34.000 MSTIME 
35.000 MSCHGUNIT 
36.000 MSERRMSG 
37.000 M$RUE 



00C7 M$EOM 0183 

00C8 M$TRMPRG 0184 

00C9 MSGLINEATTR 0185 

00CA MSSTRMATTR 0186 

OOCB MSGTRMATTR 0187 

OOCC M$ PLATEN 0188 

OOCD MSSTRMTAB 018A 

OOCE MSSINPUT 018B 

OOCF MSMDFFLD 018E 

OODO MSDCLFLD 018F 

00D1 MSRLSFLD 0190 

00D2 M$ SLGFLD 0191 

00D3 MSERASE 0192 

00D4 MSGCHAN 0193 

00D5 M$RCHAN 0194 

00D6 MSGPROMPT 0195 
00D7 

MSWRSYSLOG 01C0 
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Active I 


'rocess - 


> 


USER /HANDLER 


MON FOR USER 


MONITOR 


MMD Imag 


fe source 




UHJIT.ASDT_USR 


UHJIT . ASDT_MCL 


MHJIT. ASDT_MON 


# 


UASDT 


MASDT 


VADDR 








— 
00 




.5000 




.503E 




. 00000 




NULLSEG 




NULLSEG 




NULLSEG 


01 


.5002 


.5040 


.01000 


ROS 


ROS 


ROS 


02 


.5004 


.5042 


. 02000 


DB DS 


RDB DS 


RDB DS 


03 


.5006 


.5044 


.03000 


LOW_MEM 


LOW_MEM 


LOW_MEM 






.5046 


. 04000 


TSTACKU 


TSTACKU 


TSTACKM 


05 


.500A 


.5048 


.05000 


UHJIT 


UHJIT 


UMHJIT 


06 


.500C 












07 


.500E 


.5040 


. 07000 


MHJIT 


MHJIT 


MHJIT 


08 


.5010 


.504E 


. 08000 


MON ENTRY DATA 


MON ENTRY DATA 


MON ENTRY DATA 


09 


.5012 


.5050 


. 09000 


MON ENTRY 


MON ENTRY 


MON_ENTRY 


10 


.5014 


.5052 


. OAOOO 


USER DS1 


LPAR1 


* 


11 


.5016 


.5054 


. OBOOO 


USER_DS2 


LPAR2 


* 


12 


.5018 


.5056 


. OCOOO 


CP_DS 


LPAR3 


* 


13 


.501A 


.5058 


. ODOOO 


* 


LPAR4 


* 


14 


.501C 


.505A 


. OEOOO 


* 


LPAR5 


* 


15 


.501E 


.505C 


. OFOOO 


* 


LPAR6 


* 


16 


.5020 


.505E 


. 10000 


USER IS1 


MON IS1 


MON IS1 


17 


.5022 


.5060 


. 20000 


USER IS2 


MON IS2 


M0N_IS2 


16 


.5024 


.5062 


. 30000 


USER IS3 


M0N_IS3 


M0N_IS3 


19 


.5026 


.5064 


.40000 


USER IS4 


MON IS4 


MON IS4 


20 


.5028 


.5066 


. 50000 


USER_IS5 


M0N_IS5 


MON_IS5 


21 


.502A 


. 5068 


.60000 


USER IS6 (LIB) 


BPAR1 




22 


.502C 


.506A 


. 70000 


USER IS7 (LIB) 


BPAR2 




23 


.502E 


.5060 


. 80000 


DB PROC 


DB PROC 


DB PROC 


24 


.5030 


.506E 


.90000 


CP PROC 


WIND0W1 


WINDOW1 


25 


.5032 


.5070 


.AOOOO 


UAUTO DS 






26 


.5034 


.5072 


.BOOOO 


USER DS3 






27 


.5036 


.5074 


. COOOO 


USER DS4 


BOBCAT 


BOBCAT 


28 


.5038 


.5076 


.DOOOO 


HAND_Q 


HAND_Q 




29 


.503A 


.5078 


.EOOOO 




30 


.5030 


.507A 


.FOOOO 




BIGFOOT 


BIGFOOT 
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0 1 2 3 4 5 6 7 0 1 2 3 4 5 ! 



.5000 !ASDT_USER 



.503E !ASDT_MCL 



.5072 !ISA_USR 

I I 

! .507E contains .DMN.ID 
I ! 

.50B6 !TSA_USR 



X x x 

CNCT_LVLS .517F ! @! @ ! @! @!@! @! @! @! @! @! @! @! @! @! @!@ ! 

X x __j 

!@!@!@!@!@!@!@!@!@!@!@!@!@!©!©!@! 
X x x 

X x x 

!@!@!@!@!@!@!@!@!@!@!@!@!@!@!@!@! 

x 

.5183 ! SHRD_SEG ! ! 

X x x 

ARRAY: ' 20 '0 ENTRIES TOTAL. 

X J x 

.5193 IMMFLGS ! ! 

X x x 

ARRAY:' 20 '0 ENTRIES TOTAL. 
I 1 1 



The User Housekeeping Job Information Table (UHJIT) contains the 
data required by the hardware and the LCP-6 Schedular for running 
a user. 

The GSUHJIT macro, which is contained in the G_HJIT_M include 
file, may be used to generate a structure defining the UHJIT. 
Because the G$UHJIT macro requires some of the macros contained 
in the GH_LCP6_M include file, GH_LCP6_M (or LCP_6) must also be 
specified as an include file in a compile unit that requires the 
GSUHJIT structure. 



A user may reference the UHJIT through the pointer G$UHJIT$ . 
This pointer is defined in the G_UPTRS_D object unit file. 



The fields within the UHJIT of particular interest to the system 
programmer are: 

ASDT_MCL - The MCL Address Space Descriptor Table contains the 
segment descriptors that are loaded into the Memory 
Management Unit while processing a user's monitor service 
request . 

ASDT_USR - The User Address Space Descriptor Table contains the 
segment descriptors that are loaded into the Memory 
Management Unit for user program execution. 

ISA_USR - The User Interrupt Save Area is accessed by the 

hardware on the occurrence of the user's interrupt level. 
Refer to the description of GSISA. 

TSA_USR - The User Trap Save Area is used by the hardware and the 
LCP-6 system to store the environment at the time of a user 
trap. Refer to the description of G$TSA. 

UHJIT. DMN. ID - UBIN contains the DoMaiN IDentification which 

indicates which process is running; Monitor, Debugger, User, 
user Interrupt Level, or monitor service. The value will be 
one of the following EQUated values from the G_LCP6_E (or 
LCP_6) include file: 

%G_DMN_MON_SVC 0 %G_DMN_MON 4 

%G_DMN_DB_SVC 1 %G_DMN_DB 5 

%G_DMN_INT_SVC 2 %G_DMN_INT 6 

%G_DMN_USR_SVC 3 %G_DMN_USR 7 
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0123456701! 



0! Contains the TSA overflow 
I logic used to generate the 
! GHT- 1396-3 Soreech Dumps 



14 ! RTC_INIT 

I 

15!RTC_CURR 



17!WDT_CURR 



Handler Int Level 



7'0 ENTRIES TOTAL. 





I- 




1F!1 




I- 


LVL_ACT 


20! 




I- 


LVL_ACT 


21! 




I- 


LVL_ACT 


22! 




I- 


LVL_ACT 


23! 




I- 



Levels 0-15 
! 

Levels 16 - 31 



Levels 32 - 47 



The G$LOW_MEM macro may be used to generate a structure of the 



hardware dedicated memory locations in low core. No initial 
values may be specified. 

This structure contains the following fields: 

IV = The interrupt vector. Refer to G$INTERRUPT_VECTOR for the 
fields within the interrupt vector. 

LVL_ACT = ARRAY(0:63)-BIT(1) set when the corresponding interrupt 
level is active. 

MEM_ERR_CNT = VALUE-SBIN WORD contains the hardware count of 
memory errors . 

NATSAPn$ = PTR (where n - 0-7) contains the address of a pool of 
available Trap Save Areas. When a trap occurs, the firmware 
uses the NATSAP_SEL field in ISM2 to access one of the pools 
0-7. The linkage between TSAs in a pool is initialized by 
the LCP-6 software and maintained by the firmware. 

NATSAPOS will be set to the address of MHJIT . TSA_MON and 
NATSAP1S will be set to the address of UHJIT . TSA_USR . 

NATSAP4$ through NAPTSAP7S are Reserved for Future Use. 



PSF_ENT$ = PTR is an entry to the Power Failsafe Routine. This 
is the address to be entered on power-up. 

RTCLCURR = VALUE-UBIN WORD contains the Real time clock current 
value . 

RTC_INIT = VALUE-UBIN WORD contains the Real time clock initial 
value . 

RTC_LVL = VALUE-UBIN WORD contains the Real time clock interrupt 
level . 

TV = The trap vector. Refer to G$TRAP_VECTOR for the fields 
within the trap vector. 

WDT_CURR = VALUE-UBIN WORD contains the Watchdog Timer current 
value . 
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G$ STATUS_REG 



0123456701234567 



QLT 



0!@! 



-I 
. !W 
-I 



RING 



0! . !@ ! * SID ! LEVEL 
I 1 



—I 



The G$STATUS_REG macro may be used to generate a structure that 
contains the Status Register. 

The fields of the Status Register are: 

ID = VALUE-BIT(2) is the processor identification which is 
hard-wired and cannot be changed under program control. 
These 2 bits are used as the least significant bits of the 
10-bit channel number for the processor itself, where the 8 
high order bits are always ZERO. Ther default is '00 'B. 

LEVEL = VALUE-UBIN(6) contains the interrupt priority level on 
which the processor is currently executing. Level 0 is the 
highest priority level and 63 is the lowest. The default is 



LCP-6 Interrupt Level Assignments 



Dec 


Hex 


Usage 


00 


00 


Power Fail Safe 


01 


01 


Watch Dog Timer 


02 


02 


Trap Save Overflow 


03 


03 


Bigfoot - Used during the boot 


04 


04 


Monitor Inhibit Level 


05 


05 


Monitor Inhibit Level2 


06 


06 


XDELTA 


OA 


OA 


XDELTA 


12 


OC 


Available for Handlers 


59 


3B 


Available for Handlers 


60 


3C 


Common Interrupt Cleanup 


61 


3D 


Real Time Clock 


62 


3E 


Scheduler - Idle Level 


63 


3F 


User Execution 



QLT = VALUE-BIT(l) indicates whether a unit in the system has 
successfully completed its Quality Logic Test or not. 



0 = QLT successfully completed. 

1 = QLT either still running or failed 



Default = 'O'B. 

RING = VALUE-BIT(2) contains the currently active Ring value. 

Note that ring values are always encoded as ones complement 
whenever they appear. Thus this field will contain one of 
the following: 



11 
10 
01 
00 



Ring 0 
Ring 1 
Ring 2 
Ring 3 



the most privileged; used by the Monitor 
also privileged and used by the Monitor 
Command Processor or Debugger 
User 



This field may be initialized by specifying {G_RING0# I 
G_R_MON# I G_R_CPDB# I G_R_USR#}. The default is G_R_USR#. 
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DRIBBLE ON @ 12:19 08/22/85 
! ANLZ . 5060 
ANLZ C01JTA 

:DFC005060 for GHB-000001-3 at 19:19 AUG 20 '85 on LADC L66A 
LA is to blame 

Nodes : L6I L66A 

L6I (node 1) Selected 
L6I -REC 

Screech Code: 

GHB-M00001-6 Invalid domain number in UHJIT. 
Current User : . 0 TSA$ : . 6087 

TSA ©.6087: 

TRAP: 0 TSAL$: . 50B6 I: .000C INST: .000A Z: .00C0 

A$: .20674 P: .20707 B3: .2077B R3: .1 S: .6032 

Trap IC: GHBSTRAP1+ . 8F 

ISA: 

P: .9026 S: .6004 CHN: . FFFF ISM1 : . FFFF ISM2: .A103 

Interrupted address: GHT$TRAP+.25 

1 2 3 4 5 6 7 

B Registers: 503E 50B6 5081 2077A 5000 20707 44F8 
R Registers: 10 F A103 2 32 2 996 

M Registers: FFOO FFOO FFOO FFOO FFOO FFOO FFOA 

ASV$: .503E TSAP$ : .0 NATSAP: 2 I: .000C T$ : .45FA 

CI: .0000 RDBR$: .0 

TSA @.50B6: 

TRAP: 15 TSALS: .0 I: .0F18 INST: .D800 Z: .0083 

A$: .200 P: .20996 B3 : .A0052 R3: .15 S: .4032 

Trap IC: GHM$MCLS+.116 
ISA: 

P: .9026 S: .0000 CHN: .FFFF ISM1 : .FFFF ISM2: .A103 



Interrupted address: GHT$TRAP+.25 

1 2 3 4 5 6 7 



B Registers: A005C A0068 
R Registers: 10 8 

M Registers: FFOO FFOO 

ASV$: .5000 TSAP$ : .0 

CI: .0000 RDBR$: .0 



5081 20C8D D0018 2087B A0058 

A103 2 1 3 ID 

FFOO FFOO FFOO FFOO FFOA 

NATSAP: 2 I: .0018 T$ : .AOS 



I ENTRY DEV S HHJIT USR LVL FLAGS ISM1 ISM2 



.1A .0000 

.IB .1803 

.1C .0000 

.ID .0000 

.IE .0000 

.IF .17FB 

.20 .0000 

.21 .1803 

.22 .0000 

.24 ,0000 

.25 .17FB 

.26 .0000 

.32 .0000 

.33 .1793 



.00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 
. 00000 



094EA 
094EA 
094EA 
094EA 
094EA 
094EA 
094EA 
094EA 
094EA 
094EA 
094EA 



00000000 
000246E8 
000247F2 
00024900 
00000000 
00020C66 
00000000 
00020A46 
00021 1AC 
00000000 
0002190C 
0002190C 
00000000 
00020A1E 



001A 6000 
0000 6004 
0000 6004 
0000 6004 
001E 6000 
0000 6004 
0020 6000 
0000 6004 
0000 6004 
0024 6000 
0000 6004 
0000 6004 
0032 6000 
0000 6004 



0000 .04 

8226 .04 

8219 .04 

821A .04 

0000 .06 

820F .06 

0000 .03 

8210 .03 



00 .8400 

1A .COOO 

1A .COOO 

1A .COOO 

00 .8400 

IE .COOO 

00 .8400 

20 .COOO 

20 .COOO 

00 .8400 

24 .COOO 

24 .COOO 

00 .8400 

32 .COOO 



0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 
0000 2000 



L6I 


-PL 


.4000 F .2 




CW= . 123 


MW= 


5F0 






Frame @ 


44D7 


called 


from 


.91D8 (GHT$TRAP+ . 1D7) 


Frame @ 


44F0 


called 


from 


.90EB (GHT$TRAP+.EA) 


Frame @ 


44F7 


called 


from 


.91D8 (GHT$TRAP+ . 1D7) 


Frame @ 


4514 


called 


from 


.9121 (GHT$TRAP+.120) 


Frame @ 


451B 


called 


from 


.2794B (GUSSCLOCK+.35B) 


Frame @ 


452C 


called 


from 


.9A3B (GUDSMCL HAND+.30D) 


Frame @ 


4561 


called 


from 


.922D (GHT$TRAP+ . 22C) 


Frame @ 


45EE 


called 


from 


.9732 (GUDSMCL HAND+.4) 


Frame @ 


45F5 


called 


from 


. 2123C (GHSSADDUSR+ . 17A) 


L6I 


-SPY .2 







0003 

-DU .507E.1 ASDT .20400 

0 1 2 3 4 5 6 
0002 



TRAP : 63 TSAL$ : .0 
A$: .61E45 P: .61E46 

Trap IC: X6A_MAUTO+ . 1D48 
ISA: 



.3F0C INST: 
i: .61A00 



. 0001 Z : 
*3: .GC5 



.8080 
S: .403F 



S: .4000 CHN: .0000 ISM1 : . FFFF ISM2: .9103 



B Registers 
R Registers 



5000 9F21 
B2 3F 
FF00 FFOO 

TSAP$: .0 



5081 62300 
0 FFFF 
FFOO FFOO 



9CC5 61E7C A0025 
3F 8 9103 

FFOO FFOO FFOA 



NATSAP: 1 I: .OOOC T$ : . A09FA 



CI: .0004 RDBR$: .0 

L6I -TSA .50B6 ASDT .20400 

TRAP: 15 TSAL$: .0 I: .0F18 INST : 

A$: .200 P: .20996 B3: .A0052 

Trap IC: KJFSFIX+.170 

ISA: 



.D800 Z: .0083 
X3: .15 S: .4032 



P: .9026 



.0000 CHN: .FFFF I SMI : .FFFF ISM2 : .A103 



B Registers 
R Registers 



ASV$: .5000 



A005C A0068 
10 8 
FFOO FFOO 

TSAP$: .0 



.0000 RDBR$ : .0 



5081 20C8D D0018 2087B A0058 
A103 2 1 3 ID 

FFOO FFOO FFOO FFOO FFOA 

NATSAP: 2 I: .0018 T$ : . A09FA 



L6I -PL .AOOOO F .2 



CT=.9A3 MW=.9ED 



Frame @.A0057 called from .20C71 (KJF$INTHAND+ . 253) 
Frame ©.A0041 called from .20A1E (KJFSINTHAND+ . 0) 
Frame @.A0024 called from .20E51 (G_UPTRS_D+ . 6D) 
Frame @.A0OOF called from .2043A (KJFSFEI+.O) 



